1 |
c Chemistry Variables Dimensions |
2 |
c ------------------------------- |
3 |
common /chemistry_grid/ nlatsoz, nlevsoz, ntimesoz, latsoz, levsoz |
4 |
. nlatsq, nlevsq, ntimesq, latsq, levsq, nlevsn2o,nlevsmeth |
5 |
_RL latsoz(nlatsoz), levsoz(nlevsoz), latsq(nlatsq), levsq(nlevsq) |
6 |
integer nlatsoz, nlevsoz, ntimesoz, nlatsq, nlevsq, ntimesq, |
7 |
. nlevsn2o,nlevsmeth |
8 |
parameter (nlatsoz = 37, nlevsoz = 34, ntimesoz = 12) |
9 |
parameter (nlatsq = 18, nlevsq = 20, ntimesq = 12) |
10 |
parameter (nlevsn2o = Nrphys) |
11 |
parameter (nlevsmeth = Nrphys) |
12 |
|
13 |
c "Chemistry State" Variables |
14 |
c ------------------------- |
15 |
common /chemistry_vars/ |
16 |
. co2, cfc11, cfc12, cfc22, ozone, stratq, n2o, methane |
17 |
_RL co2 |
18 |
_RL cfc11 |
19 |
_RL cfc12 |
20 |
_RL cfc22 |
21 |
_RL ozone(nlatsoz,nlevsoz,ntimesoz) |
22 |
_RL stratq(nlatsq,nlevsq,ntimesq) |
23 |
_RL n2o(nlevsn2o) |
24 |
_RL methane(nlevsmeth) |
25 |
|
26 |
c Chemistry Exports |
27 |
c ------------------- |
28 |
common /chem_exports/ o3, qstr |
29 |
_RL o3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
30 |
_RL qstr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
31 |
|