| 1 | ! ------------------------------------ |
|---|
| 2 | ! --- Data for chemical routines --- |
|---|
| 3 | ! ------------------------------------ |
|---|
| 4 | ! |
|---|
| 5 | integer nd, nozo, nr, nsza, ntemp, ntau |
|---|
| 6 | ! |
|---|
| 7 | parameter (nd = 29) |
|---|
| 8 | parameter (nozo = 7) |
|---|
| 9 | parameter (nr = nd + 28) |
|---|
| 10 | parameter (nsza = 27) |
|---|
| 11 | parameter (ntemp = 4) |
|---|
| 12 | parameter (ntau = 8) |
|---|
| 13 | ! |
|---|
| 14 | real kb |
|---|
| 15 | parameter (kb = 1.3806e-23) |
|---|
| 16 | ! |
|---|
| 17 | common/chimiedata/jphot,colairtab,table_ozo |
|---|
| 18 | ! |
|---|
| 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) |
|---|
| 24 | ! |
|---|
| 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./ |
|---|
| 30 | ! |
|---|
| 31 | data tautab/0., 0.2, 0.4, 0.6, 0.8, 1., 2., 4./ |
|---|
| 32 | ! |
|---|
| 33 | integer ncomp |
|---|
| 34 | parameter (ncomp = 15) |
|---|
| 35 | character*10 nomchem(ncomp) |
|---|
| 36 | data nomchem/"co2","co","o","o1d","o2","o3","h","h2", & |
|---|
| 37 | & "oh","ho2","h2o2", "ch4", "n2", "ar", "h2o"/ |
|---|
| 38 | ! |
|---|
| 39 | real mmolchem(ncomp) |
|---|
| 40 | data mmolchem/44.,28.,16.,16.,32.,48., 1., & |
|---|
| 41 | & 2.,17.,33.,34.,16.,28.,40.,18./ |
|---|
