ecearth3/sources/tm5mp/proj/cbm4/chem_param.inc

! number of processors for which this tracer order is generated:
!integer, parameter :: tracerorder_procs = 4

Integer, Parameter :: ntrace      = 42
Integer, Parameter :: ntracet     = 27
Integer, Parameter :: ntrace_chem = 15
Integer, Parameter :: io3 = 1
Integer, Parameter :: ich2o = 2
Integer, Parameter :: iald2 = 3
Integer, Parameter :: iisop = 4
Integer, Parameter :: iso4 = 5
Integer, Parameter :: ino3_a = 6
Integer, Parameter :: ich4 = 7
Integer, Parameter :: ich3o2h = 8
Integer, Parameter :: iole = 9
Integer, Parameter :: iorgntr = 10
Integer, Parameter :: inh3 = 11
Integer, Parameter :: imgly = 12
Integer, Parameter :: ipb210 = 13
Integer, Parameter :: ih2o2 = 14
Integer, Parameter :: ihno3 = 15
Integer, Parameter :: ieth = 16
Integer, Parameter :: irooh = 17
Integer, Parameter :: idms = 18
Integer, Parameter :: imsa = 19
Integer, Parameter :: irn222 = 20
Integer, Parameter :: inox = 21
Integer, Parameter :: ico = 22
Integer, Parameter :: ipar = 23
Integer, Parameter :: ipan = 24
Integer, Parameter :: iso2 = 25
Integer, Parameter :: inh4 = 26
Integer, Parameter :: io3s = 27
Integer, Parameter :: ino = 28
Integer, Parameter :: iho2 = 29
Integer, Parameter :: ich3o2 = 30
Integer, Parameter :: ioh = 31
Integer, Parameter :: ino2 = 32
Integer, Parameter :: ino3 = 33
Integer, Parameter :: in2o5 = 34
Integer, Parameter :: ihno4 = 35
Integer, Parameter :: ic2o3 = 36
Integer, Parameter :: iror = 37
Integer, Parameter :: irxpar = 38
Integer, Parameter :: ixo2 = 39
Integer, Parameter :: ixo2n = 40
Integer, Parameter :: inh2 = 41
Integer, Parameter :: ih2opart = 42
!Integer, Dimension(4), Parameter :: distribution = (/6, 7, 7, 7/)
integer, parameter  ::  tracer_name_len = 8
Character(len=tracer_name_len), Dimension(ntrace), Parameter :: names = (/&
     'O3      ','CH2O    ','ALD2    ','ISOP    ','H2SO4   ','NO3_A   ','CH4     ',&
     'CH3O2H  ','OLE     ','ORGNTR  ','NH3     ','MGLY    ','PB210   ','H2O2    ',&
     'HNO3    ','ETH     ','ROOH    ','DMS     ','MSA     ','RN222   ','NOx     ',&
     'CO      ','PAR     ','PAN     ','SO2     ','NH4     ','O3S     ','NO      ',&
     'HO2     ','CH3O2   ','OH      ','NO2     ','NO3     ','N2O5    ','HNO4    ',&
     'C2O3    ','ROR     ','RXPAR   ','XO2     ','XO2N    ','NH2     ','H2OPART '/)
Real, Dimension(ntrace), Parameter :: ra = (/&
     xmo3,xmch2o,xmald2,xmisop,xmh2so4,xmno3_a,xmch4,&
     xmmepe,xmole,xmorgntr,xmnh3,xmgly,xmpb210,xmh2o2,&
     xmhno3,xmeth,xmrooh,xmdms,xmmsa,xmrn222,xmnox,&
     xmco,xmpar,xmpan,xmso2,xmnh4,xmo3,xmno,&
     xmho2,xmch3o2,xmoh,xmno2,xmno3,xmn2o5,xmhno4,&
     xmc2o3,xmror,xmrxpar,xmxo2,xmxo2n,xmnh2,xmh2o/)