1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
c Chemistry Variables Dimensions |
c Chemistry Variables Dimensions |
5 |
c ------------------------------- |
c ------------------------------- |
6 |
integer nlatsoz, nlevsoz, ntimesoz, nlatsq, nlevsq, ntimesq, |
integer nlatsoz, nlevsoz, ntimesoz, nlatsq, nlevsq, ntimesq, |
9 |
parameter (nlatsq = 18, nlevsq = 20, ntimesq = 12) |
parameter (nlatsq = 18, nlevsq = 20, ntimesq = 12) |
10 |
parameter (nlevsn2o = Nrphys) |
parameter (nlevsn2o = Nrphys) |
11 |
parameter (nlevsmeth = Nrphys) |
parameter (nlevsmeth = Nrphys) |
12 |
|
common /chemistry_grid/ latsoz, levsoz, latsq, levsq |
13 |
|
_RL latsoz(nlatsoz), levsoz(nlevsoz), latsq(nlatsq) |
14 |
|
_RL levsq(nlevsq) |
15 |
|
|
16 |
c "Chemistry State" Variables |
c "Chemistry State" Variables |
17 |
c ------------------------- |
c ------------------------- |
25 |
_RL stratq(nlatsq,nlevsq,ntimesq) |
_RL stratq(nlatsq,nlevsq,ntimesq) |
26 |
_RL n2o(nlevsn2o) |
_RL n2o(nlevsn2o) |
27 |
_RL methane(nlevsmeth) |
_RL methane(nlevsmeth) |
28 |
|
|
29 |
c Chemistry Exports |
c Chemistry Exports |
30 |
c ------------------- |
c ------------------- |
31 |
common /chem_exports/ o3, qstr |
common /chem_exports/ o3, qstr |
32 |
_RL o3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
_RL o3(sNx,sNy,Nrphys,Nsx,Nsy) |
33 |
_RL qstr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
_RL qstr(sNx,sNy,Nrphys,Nsx,Nsy) |
|
|
|