**** SOAP3
c
c----CAMx v7.40 260801
c
c
c----------------------------------------------------------------------
c
c    Include file for SOAP3 parameters and variables.
c
c      Copyright Ramboll
c
c-----------------------------------------------------------------------
c   LOG:
c-----------------------------------------------------------------------
c
c     01/03/24   -gwilson-  original development
c
c-----------------------------------------------------------------------
c    Parameters for SOAP model species;
c-----------------------------------------------------------------------
c
c   NUM_SOAP_SPECIES  I  number of species in SOAP scheme
c
      integer NUM_SOAP_SPECIES
c
      parameter( NUM_SOAP_SPECIES = 11 )
c
c-----------------------------------------------------------------------
c    Variables for species names:
c-----------------------------------------------------------------------
c
c   soap2_spec_names  C  species names for SOAP2 inputs
c   soap3_spec_names  C  species names for SOAP3 inputs
c
      character*10 soap2_spec_names(NUM_SOAP_SPECIES)
      character*10 soap3_spec_names(NUM_SOAP_SPECIES)
c
      common /soap_spec/ soap2_spec_names, soap3_spec_names
c
c-----------------------------------------------------------------------
c    Parameters for SOAP emissions species:
c-----------------------------------------------------------------------
c
c  NUM_SOAP_EMISS    I number of emissions species for SOAP
c  IDX_SOAP_IVOC     I index of IVOC in SOAP emissions names array
c  IDX_SOAP_IVOD     I index of IVOD in SOAP emissions names array
c  IDX_SOAP_IVOA     I index of IVOA in SOAP emissions names array
c  IDX_SOAP_IVC1     I index of IVC1 in SOAP emissions names array
c  IDX_SOAP_IVC2     I index of IVC2 in SOAP emissions names array
c  IDX_SOAP_IVOB     I index of IVOB in SOAP emissions names array
c  IDX_SOAP_POA_OP   I index of POA_OP in SOAP emissions names array
c  IDX_SOAP_POA_GV   I index of POA_GV in SOAP emissions names array
c  IDX_SOAP_POA_DV   I index of POA_DV in SOAP emissions names array
c  IDX_SOAP_POA_MC   I index of POA_MC in SOAP emissions names array
c  IDX_SOAP_POA_IC   I index of POA_IC in SOAP emissions names array
c  IDX_SOAP_POA_BB   I index of POA_BB in SOAP emissions names array
c
      integer NUM_SOAP_EMISS
      integer IDX_SOAP_IVOC
      integer IDX_SOAP_IVOD
      integer IDX_SOAP_IVOA
      integer IDX_SOAP_IVC1
      integer IDX_SOAP_IVC2
      integer IDX_SOAP_IVOB
      integer IDX_SOAP_POA_OP
      integer IDX_SOAP_POA_GV
      integer IDX_SOAP_POA_DV
      integer IDX_SOAP_POA_MC
      integer IDX_SOAP_POA_IC
      integer IDX_SOAP_POA_AV
      integer IDX_SOAP_POA_BB
c
      parameter( NUM_SOAP_EMISS  = 13 )
      parameter( IDX_SOAP_IVOC   =  1 )
      parameter( IDX_SOAP_IVOD   =  2 )
      parameter( IDX_SOAP_IVOA   =  3 )
      parameter( IDX_SOAP_IVC1   =  4 )
      parameter( IDX_SOAP_IVC2   =  5 )
      parameter( IDX_SOAP_IVOB   =  6 )
      parameter( IDX_SOAP_POA_OP =  7 )
      parameter( IDX_SOAP_POA_GV =  8 )
      parameter( IDX_SOAP_POA_DV =  9 )
      parameter( IDX_SOAP_POA_MC = 10 )
      parameter( IDX_SOAP_POA_IC = 11 )
      parameter( IDX_SOAP_POA_AV = 12 )
      parameter( IDX_SOAP_POA_BB = 13 )
c
c-----------------------------------------------------------------------
c    Variables for species names:
c-----------------------------------------------------------------------
c
c   soap_emiss_names  C  species names for SOAP emissions species
c
      character*10 soap_emiss_names(NUM_SOAP_EMISS)
c
      common /soap_emiss/ soap_emiss_names
c
c-----------------------------------------------------------------------
c    Variables for evaporation factors:
c-----------------------------------------------------------------------
c
c   soap3_evap_factors R coefficients of equations for evap functions
c
      real soap3_evap_factors(3,NUM_SOAP_EMISS)
      common /soap_evap/ soap3_evap_factors
c
      real, parameter ::
     &      soap3_evap_factors_15dbs(3,IDX_SOAP_POA_OP:IDX_SOAP_POA_BB) = reshape(
     &           (/  3.50E-05,    !   IDX_SOAP_POA_OP
     &              -2.98E-02,    !   IDX_SOAP_POA_OP
     &               6.21E+00,    !   IDX_SOAP_POA_OP
     &              -4.09E-05,    !   IDX_SOAP_POA_GV
     &               1.75E-02,    !   IDX_SOAP_POA_GV
     &              -8.47E-01,    !   IDX_SOAP_POA_GV
     &              -8.97E-05,    !   IDX_SOAP_POA_DV
     &               4.42E-02,    !   IDX_SOAP_POA_DV
     &              -4.46E+00,    !   IDX_SOAP_POA_DV
     &              -2.60E-05,    !   IDX_SOAP_POA_MC
     &               1.13E-02,    !   IDX_SOAP_POA_MC
     &              -2.09E-01,    !   IDX_SOAP_POA_MC
     &              -6.53E-05,    !   IDX_SOAP_POA_IC
     &               3.09E-02,    !   IDX_SOAP_POA_IC
     &              -2.65E+00,    !   IDX_SOAP_POA_IC
     &              -1.60E-05,    !   IDX_SOAP_POA_AV
     &               3.11E-03,    !   IDX_SOAP_POA_AV
     &               1.21E+00,    !   IDX_SOAP_POA_AV
     &              -1.89E-05,    !   IDX_SOAP_POA_BB
     &               3.99E-04,    !   IDX_SOAP_POA_BB
     &               2.11E+00 /), !   IDX_SOAP_POA_BB
     &           (/ 3, IDX_SOAP_POA_BB-IDX_SOAP_POA_OP+1 /) )
c
      real, parameter :: 
     &      soap3_evap_factors_complx(3,IDX_SOAP_POA_OP:IDX_SOAP_POA_BB) = reshape(
     &           (/  3.71E-05,    !   IDX_SOAP_POA_OP
     &              -2.88E-02,    !   IDX_SOAP_POA_OP
     &               5.86E+00,    !   IDX_SOAP_POA_OP
     &              -3.78E-05,    !   IDX_SOAP_POA_GV
     &               1.61E-02,    !   IDX_SOAP_POA_GV
     &              -6.86E-01,    !   IDX_SOAP_POA_GV
     &              -7.85E-05,    !   IDX_SOAP_POA_DV
     &               3.79E-02,    !   IDX_SOAP_POA_DV
     &              -3.57E+00,    !   IDX_SOAP_POA_DV
     &              -2.50E-05,    !   IDX_SOAP_POA_MC
     &               1.09E-02,    !   IDX_SOAP_POA_MC
     &              -1.72E-01,    !   IDX_SOAP_POA_MC
     &              -5.82E-05,    !   IDX_SOAP_POA_IC
     &               2.70E-02,    !   IDX_SOAP_POA_IC
     &              -2.13E+00,    !   IDX_SOAP_POA_IC
     &              -1.60E-05,    !   IDX_SOAP_POA_AV
     &               3.11E-03,    !   IDX_SOAP_POA_AV
     &               1.21E+00,    !   IDX_SOAP_POA_AV
     &               2.41E-05,    !   IDX_SOAP_POA_BB
     &              -2.05E-02,    !   IDX_SOAP_POA_BB
     &               4.60E+00 /), !   IDX_SOAP_POA_BB
     &           (/ 3, IDX_SOAP_POA_BB-IDX_SOAP_POA_OP+1 /) )
c
c-----------------------------------------------------------------------
c    Variables for extrac classes for SOAP3 emissions:
c-----------------------------------------------------------------------
c
c   soap3_ntrcls I number of classes to use, including SOAP3 emissions classes
c   soap3_clsnam C name of each tracer class for SOAP3 emissions species
c   soap3_iptcls I pointer into tracer arrays for SOAP3 emissions class
c   soap3_nptcls I number of tracer species in each class
c   soap3_iemcls I (redundant) pointer into tracer arrays for SOAP3 emissions class
c
      integer     soap3_ntrcls
      character*3 soap3_clsnam(IDX_SOAP_POA_OP:IDX_SOAP_POA_BB+1)
      integer     soap3_iptcls(IDX_SOAP_POA_OP:IDX_SOAP_POA_BB+1)
      integer     soap3_nptcls(IDX_SOAP_POA_OP:IDX_SOAP_POA_BB+1)
      integer     soap3_iemcls(IDX_SOAP_POA_OP:IDX_SOAP_POA_BB+1)
c
      common /soap3_ptr_chr/ soap3_clsnam
      common /soap3_ptr_dat/ soap3_ntrcls, soap3_iptcls, soap3_nptcls, soap3_iemcls
c
c-----------------------------------------------------------------------
c    Parameters for indexes to SOAP chemistry precursors:
c-----------------------------------------------------------------------
c
c    IOX_O    I index of O in avgox array
c    IOX_OH   I index of OH in avgox array
c    IOX_O3   I index of O3 in avgox array
c    IOX_NO3  I index of NO3 in avgox array
c    IOX_NO   I index of NO in avgox array
c    IOX_HO2  I index of HO2 in avgox array
c
       integer IOX_O
       integer IOX_OH
       integer IOX_O3
       integer IOX_NO3
       integer IOX_NO
       integer IOX_HO2
c
       parameter( IOX_O   = 1 )
       parameter( IOX_OH  = 2 )
       parameter( IOX_O3  = 3 )
       parameter( IOX_NO3 = 4 )
       parameter( IOX_NO  = 5 )
       parameter( IOX_HO2 = 6 )
c
c   ISOAP_BNZA I index of BNZA (BENZ) in precurosor array for SOAP3
c   ISOAP_HPAR I index of HPAR in precurosor array for SOAP3
c   ISOAP_TOLA I index of TOLA in precurosor array for SOAP3
c   ISOAP_XYLA I index of XYLA in precurosor array for SOAP3
c   ISOAP_IVOA I index of IVOA in precurosor array for SOAP3
c   ISOAP_IVC1 I index of IVC1 in precurosor array for SOAP3
c   ISOAP_IVC2 I index of IVC2 in precurosor array for SOAP3
c   ISOAP_SVOA I index of SVOA in precurosor array for SOAP3
c   ISOAP_ISP  I index of ISP in precurosor array for SOAP3
c   ISOAP_TRP  I index of TRP in precurosor array for SOAP3
c   ISOAP_APN  I index of APN in precurosor array for SOAP3
c   ISOAP_SQT  I index of SQT in precurosor array for SOAP3
c   ISOAP_FVC1 I index of FVC1 in precurosor array for SOAP3
c
      integer ISOAP_BNZA
      integer ISOAP_HPAR
      integer ISOAP_TOLA
      integer ISOAP_XYLA
      integer ISOAP_IVOA
      integer ISOAP_IVC1
      integer ISOAP_IVC2
      integer ISOAP_SVOA
      integer ISOAP_ISP
      integer ISOAP_TRP
      integer ISOAP_APN
      integer ISOAP_SQT
      integer ISOAP_FVC1
c
      parameter( ISOAP_BNZA =  1 )
      parameter( ISOAP_HPAR =  2 )
      parameter( ISOAP_TOLA =  3 )
      parameter( ISOAP_XYLA =  4 )
      parameter( ISOAP_IVOA =  5 )
      parameter( ISOAP_IVC1 =  6 )
      parameter( ISOAP_IVC2 =  7 )
      parameter( ISOAP_SVOA =  8 )
      parameter( ISOAP_ISP  =  9 )
      parameter( ISOAP_TRP  = 10 )
      parameter( ISOAP_APN  = 11 )
      parameter( ISOAP_SQT  = 12 )
      parameter( ISOAP_FVC1 = 13 )
c
c   IVBS_BNZA I index of BNZA (BENZ) in precurosor array for SOAP3
c   IVBS_TOLA I index of TOLA in precurosor array for SOAP3
c   IVBS_XYLA I index of XYLA in precurosor array for SOAP3
c   IVBS_ISP  I index of ISP in precurosor array for SOAP3
c   IVBS_TRP  I index of TRP in precurosor array for SOAP3
c   IVBS_SQT  I index of SQT in precurosor array for SOAP3
c   IVBS_IVOG I index of IVOG in precurosor array for SOAP3
c   IVBS_IVOD I index of IVOD in precurosor array for SOAP3
c   IVBS_IVOA I index of IVOA in precurosor array for SOAP3
c   IVBS_IVOB I index of IVOB in precurosor array for SOAP3
c
      integer IVBS_BNZA
      integer IVBS_TOLA
      integer IVBS_XYLA
      integer IVBS_ISP
      integer IVBS_TRP
      integer IVBS_SQT
      integer IVBS_IVOG
      integer IVBS_IVOD
      integer IVBS_IVOA
      integer IVBS_IVOB
c
      parameter( IVBS_BNZA =  1 )
      parameter( IVBS_TOLA =  2 )
      parameter( IVBS_XYLA =  3 )
      parameter( IVBS_ISP  =  4 )
      parameter( IVBS_TRP  =  5 )
      parameter( IVBS_SQT  =  6 )
      parameter( IVBS_IVOG =  7 )
      parameter( IVBS_IVOD =  8 )
      parameter( IVBS_IVOA =  9 )
      parameter( IVBS_IVOB = 10 )
c
c   INV_ANTH  I index of NV concentration array for Anthro
c   INV_BIO   I index of NV concentration array for Bio
c
      integer INV_ANTH
      integer INV_BIO
c
      parameter( INV_ANTH = 1 )
      parameter( INV_BIO  = 2 )

c   ICG_ACG2  I index of NV concentration array for ACG2
c   ICG_ACG1  I index of NV concentration array for ACG1
c   ICG_BCG2  I index of NV concentration array for BCG2
c   ICG_BCG1  I index of NV concentration array for BCG1
c
      integer ICG_ACG2
      integer ICG_ACG1
      integer ICG_BCG2
      integer ICG_BCG1
c
      parameter( ICG_ACG2 = 1 )
      parameter( ICG_ACG1 = 2 )
      parameter( ICG_BCG2 = 3 )
      parameter( ICG_BCG1 = 4 )
c
c-----------------------------------------------------------------------
c    Variables for indexes to SOAP emissions species
c-----------------------------------------------------------------------
c
c  idx_ems_soap3  I  array cotaining indexes for POA SOAP3 in emissions species array
c
      integer idx_ems_soap3(IDX_SOAP_POA_OP:IDX_SOAP_POA_BB)
c
      common /poa_indexes/ idx_ems_soap3
