| [1796] | 1 | !-------------------------------------------- |
|---|
| 2 | ! data for photochemistry |
|---|
| 3 | !-------------------------------------------- |
|---|
| 4 | |
|---|
| 5 | !-------------------------------------------- |
|---|
| 6 | ! dimensions of photolysis lookup table |
|---|
| 7 | !-------------------------------------------- |
|---|
| 8 | |
|---|
| 9 | integer, parameter :: nd = 29 ! species |
|---|
| 10 | integer, parameter :: nz = 143 ! altitude |
|---|
| 11 | integer, parameter :: nozo = 4 ! ozone |
|---|
| 12 | integer, parameter :: nsza = 21 ! solar zenith angle |
|---|
| 13 | integer, parameter :: ntemp = 1 ! temperature |
|---|
| 14 | integer, parameter :: ntau = 1 ! dust |
|---|
| 15 | integer, parameter :: nch4 = 9 ! ch4 |
|---|
| 16 | |
|---|
| 17 | !-------------------------------------------- |
|---|
| 18 | |
|---|
| 19 | real, parameter :: kb = 1.3806e-23 |
|---|
| 20 | |
|---|
| [1810] | 21 | common/chimiedata_early_earth/jphot,colairtab,table_ozo |
|---|
| [1796] | 22 | |
|---|
| 23 | real jphot(ntemp,nsza,nz,nozo,ntau,nch4,nd) |
|---|
| 24 | real colairtab(nz) |
|---|
| 25 | real szatab(nsza) |
|---|
| 26 | real table_ozo(nozo) |
|---|
| 27 | real tautab(ntau) |
|---|
| 28 | real table_ch4(nch4) |
|---|
| 29 | |
|---|
| 30 | |
|---|
| 31 | ! data szatab/0., 5., 10., 15., 20., 25., & |
|---|
| 32 | ! & 30., 35., 40., 45., 50., 55., & |
|---|
| 33 | ! & 60., 65., 70., 75., 80., 82., & |
|---|
| 34 | ! & 84., 86., 88., 90., 91., 92., & |
|---|
| 35 | ! & 93., 94., 95./ |
|---|
| 36 | |
|---|
| 37 | data szatab/0., 10., 20., 30., 40., 50., & |
|---|
| 38 | & 60., 65., 70., 75., 80., 82., & |
|---|
| 39 | & 84., 86., 88., 90., 91., 92., & |
|---|
| 40 | & 93., 94., 95./ |
|---|
| 41 | |
|---|
| 42 | ! data szatab/40./ |
|---|
| 43 | |
|---|
| 44 | ! data tautab/0., 0.2, 0.4, 0.6, 0.8, 1., 2., 4./ |
|---|
| 45 | data tautab/0./ |
|---|
| 46 | |
|---|
| 47 | ! data table_ch4/0.e-3, 1.e-3/ |
|---|
| 48 | data table_ch4/0., 1.e-6, 3.e-6, 1.e-5, 3.e-5, 1.e-4, 3.e-4, & |
|---|
| 49 | & 1.e-3, 3.e-3/ |
|---|
| 50 | !-------------------------------------------- |
|---|
| 51 | ! number of reactions in ASIS solver |
|---|
| 52 | !-------------------------------------------- |
|---|
| 53 | |
|---|
| 54 | ! integer, parameter :: nb_phot_max = 36/full |
|---|
| 55 | integer, parameter :: nb_phot_max = 29 |
|---|
| 56 | |
|---|
| 57 | ! integer, parameter :: nb_reaction_3_max = 6 |
|---|
| 58 | ! integer, parameter :: nb_reaction_3_max = 10/full |
|---|
| 59 | integer, parameter :: nb_reaction_3_max = 10 |
|---|
| 60 | |
|---|
| 61 | ! integer, parameter :: nb_reaction_4_max = 30 |
|---|
| 62 | ! integer, parameter :: nb_reaction_4_max = 110/full |
|---|
| 63 | ! integer, parameter :: nb_reaction_4_max = 101/no nitrogen |
|---|
| 64 | integer, parameter :: nb_reaction_4_max = 101 |
|---|
| 65 | |
|---|
| 66 | |
|---|
