Integer, Parameter :: ntrace      = 58
Integer, Parameter :: ntracet     = 39
Integer, Parameter :: ntrace_chem = 19
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 :: ich3oh = 28
Integer, Parameter :: ihcooh = 29
Integer, Parameter :: imcooh = 30
Integer, Parameter :: ic2h6 = 31
Integer, Parameter :: iethoh = 32
Integer, Parameter :: ic3h8 = 33 
Integer, Parameter :: ic3h6 = 34
Integer, Parameter :: iterp = 35
Integer, Parameter :: iacet = 36
Integer, Parameter :: iispd = 37
Integer, Parameter :: ihono = 38
Integer, Parameter :: ich3o2no2 = 39
Integer, Parameter :: ino = 40
Integer, Parameter :: iho2 = 41
Integer, Parameter :: ich3o2 = 42
Integer, Parameter :: ioh = 43
Integer, Parameter :: ino2 = 44
Integer, Parameter :: ino3 = 45
Integer, Parameter :: in2o5 = 46
Integer, Parameter :: ihno4 = 47
Integer, Parameter :: ic2o3 = 48
Integer, Parameter :: iror = 49
Integer, Parameter :: irxpar = 50
Integer, Parameter :: ixo2 = 51
Integer, Parameter :: ixo2n = 52
Integer, Parameter :: inh2 = 53
Integer, Parameter :: ih2opart = 54
Integer, Parameter :: ic3h7o2 = 55
Integer, Parameter :: ihypro2 = 56
Integer, Parameter :: iaco2 = 57
Integer, Parameter :: inh2o2 = 58
Integer, Dimension(4), Parameter :: distribution = (/6, 7, 7, 7/)
integer, parameter  ::  tracer_name_len = 9
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      ','CH3OH    ','HCOOH    ','MCOOH    ',&
               'C2H6     ','ETHOH    ','C3H8     ','C3H6     ','TERP     ',&
               'ACET     ','ISPD     ','HONO     ','CH3O2NO2 ','NO       ',&
	       'HO2      ','CH3O2    ','OH       ','NO2      ','NO3      ',&
	       'N2O5     ','HNO4     ','C2O3     ','ROR      ','RXPAR    ',&
	       'XO2      ','XO2N     ','NH2      ','H2OPART  ','C3H7O2   ',&
	       'HYPRO2   ','ACO2     ','NH2O2    '/)
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,xmch3oh,xmhcooh,xmmcooh,&
					     xmc2h6,xmethoh,xmc3h8,xmc3h6,xmterp,xmacet,xmispd,xmhono,xmch3o2no2,xmno,xmho2,xmch3o2,&
					     xmoh,xmno2,xmno3,xmn2o5,xmhno4,xmc2o3,xmror,xmrxpar,xmxo2,xmxo2n,&
					     xmnh2,xmh2o,xmc3h7o2,xmc3h7o2,xmaco2,xmnh2o2/)