| [655] | 1 | ! ----------------------------------------- |
|---|
| 2 | ! --- Data for photolysis lookup table --- |
|---|
| 3 | ! ----------------------------------------- |
|---|
| 4 | |
|---|
| [334] | 5 | integer nd, nozo, nr, nsza, ntemp, ntau |
|---|
| [655] | 6 | |
|---|
| [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) |
|---|
| [655] | 13 | |
|---|
| [334] | 14 | real kb |
|---|
| 15 | parameter (kb = 1.3806e-23) |
|---|
| [655] | 16 | |
|---|
| [334] | 17 | common/chimiedata/jphot,colairtab,table_ozo |
|---|
| [655] | 18 | |
|---|
| [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) |
|---|
| [655] | 24 | |
|---|
| [517] | 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./ |
|---|
| [655] | 30 | |
|---|
| [334] | 31 | data tautab/0., 0.2, 0.4, 0.6, 0.8, 1., 2., 4./ |
|---|
