| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 |
- ! 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/)
|
