pkg/fizhi/fizhi_chemistry_coms.h

C $Header: /u/gcmpack/MITgcm/pkg/fizhi/chemistry_coms.h,v 1.2 2004/05/05 00:39:21 edhill Exp $
C $Name:  $

c Chemistry Variables Dimensions
c -------------------------------
      integer nlatsoz, nlevsoz, ntimesoz, nlatsq, nlevsq, ntimesq,
     .                              nlevsn2o,nlevsmeth
      parameter (nlatsoz = 37, nlevsoz = 34, ntimesoz = 12)
      parameter (nlatsq = 18, nlevsq = 20, ntimesq = 12)
      parameter (nlevsn2o = Nrphys)
      parameter (nlevsmeth = Nrphys)

c "Chemistry State" Variables
c -------------------------
      common /chemistry_vars/ 
     .   co2, cfc11, cfc12, cfc22, ozone, stratq, n2o, methane
      _RL co2
      _RL cfc11
      _RL cfc12
      _RL cfc22
      _RL ozone(nlatsoz,nlevsoz,ntimesoz)
      _RL stratq(nlatsq,nlevsq,ntimesq)
      _RL n2o(nlevsn2o)
      _RL methane(nlevsmeth)
                                                                                  
c Chemistry Exports
c -------------------
      common /chem_exports/ o3, qstr 
      _RL o3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,Nsy)
      _RL qstr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,Nsy)

1	C $Header: /u/gcmpack/MITgcm/pkg/fizhi/chemistry_coms.h,v 1.2 2004/05/05 00:39:21 edhill Exp $
2	C $Name: $
3
4	c Chemistry Variables Dimensions
5	c -------------------------------
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