| [38] | 1 | c ------------------------------------ |
|---|
| 2 | c --- Data for chemical routines --- |
|---|
| 3 | c ------------------------------------ |
|---|
| 4 | c |
|---|
| [334] | 5 | integer nd, nozo, nr, nsza, ntemp, ntau |
|---|
| [38] | 6 | c |
|---|
| [334] | 7 | parameter (nd = 29) |
|---|
| [38] | 8 | parameter (nozo = 7) |
|---|
| 9 | parameter (nr = nd + 28) |
|---|
| 10 | parameter (nsza = 27) |
|---|
| 11 | parameter (ntemp = 4) |
|---|
| [334] | 12 | parameter (ntau = 8) |
|---|
| [38] | 13 | c |
|---|
| [334] | 14 | real kb |
|---|
| 15 | parameter (kb = 1.3806e-23) |
|---|
| [38] | 16 | c |
|---|
| [334] | 17 | common/chimiedata/jphot,colairtab,table_ozo |
|---|
| [38] | 18 | c |
|---|
| [334] | 19 | real jphot(ntemp,nsza,0:200,nozo,ntau,nd) |
|---|
| 20 | real colairtab(0:200) |
|---|
| 21 | real szatab(nsza) |
|---|
| 22 | real table_ozo(nozo) |
|---|
| 23 | real tautab(ntau) |
|---|
| [38] | 24 | c |
|---|
| [334] | 25 | data szatab/0., 5., 10., 15., 20., 25., |
|---|
| 26 | $ 30., 35., 40., 45., 50., 55., |
|---|
| 27 | $ 60., 65., 70., 75., 80., 82., |
|---|
| 28 | $ 84., 86., 88., 90., 91., 92., |
|---|
| 29 | $ 93., 94., 95./ |
|---|
| [38] | 30 | c |
|---|
| [334] | 31 | data tautab/0., 0.2, 0.4, 0.6, 0.8, 1., 2., 4./ |
|---|
| [38] | 32 | c |
|---|
| 33 | integer ncomp |
|---|
| [334] | 34 | parameter (ncomp = 15) |
|---|
| [38] | 35 | character*10 nomchem(ncomp) |
|---|
| 36 | data nomchem/"co2","co","o","o1d","o2","o3","h","h2", |
|---|
| [334] | 37 | $ "oh","ho2","h2o2", "ch4", "n2", "ar", "h2o"/ |
|---|
| [38] | 38 | c |
|---|
| [334] | 39 | real mmolchem(ncomp) |
|---|
| 40 | data mmolchem/44.,28.,16.,16.,32.,48., 1., |
|---|
| 41 | $ 2.,17.,33.,34.,16.,28.,40.,18./ |
|---|
