| [1430] | 1 | !-------------------------------------------- |
|---|
| 2 | ! data for photochemistry |
|---|
| 3 | !-------------------------------------------- |
|---|
| [655] | 4 | |
|---|
| [1430] | 5 | !-------------------------------------------- |
|---|
| 6 | ! dimensions of photolysis lookup table |
|---|
| 7 | !-------------------------------------------- |
|---|
| [655] | 8 | |
|---|
| [1430] | 9 | integer, parameter :: nd = 13 ! species |
|---|
| 10 | integer, parameter :: nz = 143 ! altitude |
|---|
| 11 | integer, parameter :: nozo = 7 ! ozone |
|---|
| 12 | integer, parameter :: nsza = 27 ! solar zenith angle |
|---|
| 13 | integer, parameter :: ntemp = 4 ! temperature |
|---|
| 14 | integer, parameter :: ntau = 8 ! dust |
|---|
| [655] | 15 | |
|---|
| [1430] | 16 | !-------------------------------------------- |
|---|
| [655] | 17 | |
|---|
| [1430] | 18 | real, parameter :: kb = 1.3806e-23 |
|---|
| 19 | |
|---|
| [334] | 20 | common/chimiedata/jphot,colairtab,table_ozo |
|---|
| [655] | 21 | |
|---|
| [1430] | 22 | real jphot(ntemp,nsza,nz,nozo,ntau,nd) |
|---|
| 23 | real colairtab(nz) |
|---|
| [334] | 24 | real szatab(nsza) |
|---|
| 25 | real table_ozo(nozo) |
|---|
| 26 | real tautab(ntau) |
|---|
| [655] | 27 | |
|---|
| [517] | 28 | data szatab/0., 5., 10., 15., 20., 25., & |
|---|
| 29 | & 30., 35., 40., 45., 50., 55., & |
|---|
| 30 | & 60., 65., 70., 75., 80., 82., & |
|---|
| 31 | & 84., 86., 88., 90., 91., 92., & |
|---|
| 32 | & 93., 94., 95./ |
|---|
| [655] | 33 | |
|---|
| [334] | 34 | data tautab/0., 0.2, 0.4, 0.6, 0.8, 1., 2., 4./ |
|---|
| [1430] | 35 | |
|---|
| 36 | !-------------------------------------------- |
|---|
| 37 | ! number of reactions in ASIS solver |
|---|
| 38 | !-------------------------------------------- |
|---|
| 39 | |
|---|
| 40 | integer, parameter :: nb_phot_max = 18 |
|---|
| 41 | integer, parameter :: nb_reaction_3_max = 6 |
|---|
| 42 | integer, parameter :: nb_reaction_4_max = 30 |
|---|
