/[MITgcm]/MITgcm/pkg/dic/DIC_VARS.h
ViewVC logotype

Diff of /MITgcm/pkg/dic/DIC_VARS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by dfer, Fri Apr 4 21:38:56 2008 UTC revision 1.5 by jmc, Tue Aug 4 18:33:07 2009 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  C     /==========================================================\  C     *==========================================================*
5  C     | DIC_VARS.h  C     | DIC_VARS.h
6  C     | o Carbon Variables  C     | o Carbon Variables
7  C     |==========================================================|  C     *==========================================================*
8    
9         COMMON /CARBON_NEEDS/         COMMON /CARBON_NEEDS/
10       &              AtmospCO2, AtmosP, pH, pCO2, FluxCO2,       &              AtmospCO2, AtmosP, pH, pCO2, FluxCO2,
# Line 43  C     |================================= Line 43  C     |=================================
43         COMMON /OXYGEN_CHEM/         COMMON /OXYGEN_CHEM/
44       &              oA0,oA1,oA2,oA3,oA4,oA5,       &              oA0,oA1,oA2,oA3,oA4,oA5,
45       &              oB0,oB1,oB2,oB3,       &              oB0,oB1,oB2,oB3,
46       &              oC0             &              oC0
47        _RL oA0,oA1,oA2,oA3,oA4,oA5        _RL oA0,oA1,oA2,oA3,oA4,oA5
48        _RL oB0,oB1,oB2,oB3        _RL oB0,oB1,oB2,oB3
49        _RL oC0        _RL oC0
# Line 51  C     |================================= Line 51  C     |=================================
51  C permil : is conversion factor for mol/m3 to mol/kg  C permil : is conversion factor for mol/m3 to mol/kg
52  C          assumes uniform (surface) density  C          assumes uniform (surface) density
53  C Pa2Atm : for conversion of atmospheric pressure  C Pa2Atm : for conversion of atmospheric pressure
54  C          when coming from atmospheric model  C          when coming from atmospheric model
55         COMMON /GLOBAL_SURF_MEAN/         COMMON /GLOBAL_SURF_MEAN/
56       &                          gsm_alk,gsm_s,gsm_t,gsm_dic,       &                          gsm_alk,gsm_s,gsm_t,gsm_dic,
57       &                          gsm_c14,permil,Pa2Atm       &                          gsm_c14,permil,Pa2Atm
# Line 64  C          when coming from atmospheric Line 64  C          when coming from atmospheric
64        _RL  Pa2Atm        _RL  Pa2Atm
65    
66  C schmidt number coefficients  C schmidt number coefficients
67        COMMON /SCHMIDT_NO/        COMMON /DIC_SCHMIDT_NO/
68       &                    sca1, sca2, sca3, sca4,       &                    sca1, sca2, sca3, sca4,
69       &                    sox1, sox2, sox3, sox4       &                    sox1, sox2, sox3, sox4
70        _RL  sca1        _RL  sca1
# Line 76  C schmidt number coefficients Line 76  C schmidt number coefficients
76        _RL  sox3        _RL  sox3
77        _RL  sox4        _RL  sox4
78    
79    C--   COMMON /DIC_FILENAMES/
80    C  DIC_windFile    :: file name of wind speeds
81    C  DIC_atmospFile  :: file name of atmospheric pressure
82    C  DIC_iceFile     :: file name of seaice fraction
83    C  DIC_ironFile    :: file name of aeolian iron flux
84    C  DIC_silicaFile  :: file name of surface silica
85    C  DIC_forcingPeriod :: periodic forcing parameter specific for dic (seconds)
86    C  DIC_forcingCycle  :: periodic forcing parameter specific for dic (seconds)
87    C  dic_pCO2          :: Atmospheric pCO2 to be rad in data.dic
88    C  dic_int*          :: place holder to read in a integer number, set at run time
89    
90          COMMON /DIC_FILENAMES/
91         &        DIC_windFile, DIC_atmospFile, DIC_iceFile,
92         &        DIC_ironFile, DIC_silicaFile,
93         &        DIC_forcingPeriod, DIC_forcingCycle,
94         &        dic_pCO2, dic_int1, dic_int2, dic_int3, dic_int4
95    
96          CHARACTER*(MAX_LEN_FNAM) DIC_windFile
97          CHARACTER*(MAX_LEN_FNAM) DIC_atmospFile
98          CHARACTER*(MAX_LEN_FNAM) DIC_iceFile
99          CHARACTER*(MAX_LEN_FNAM) DIC_ironFile
100          CHARACTER*(MAX_LEN_FNAM) DIC_silicaFile
101          _RL     DIC_forcingPeriod
102          _RL     DIC_forcingCycle
103          _RL dic_pCO2
104          INTEGER dic_int1
105          INTEGER dic_int2
106          INTEGER dic_int3
107          INTEGER dic_int4
108    
109  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
110  C     /==========================================================\  C     *==========================================================*
111  C     | o Biological Carbon Variables  C     | o Biological Carbon Variables
112  C     |==========================================================|  C     *==========================================================*
113    
114        COMMON /BIOTIC_NEEDS/        COMMON /BIOTIC_NEEDS/
115       &     BIOave, CARave, SURave, SUROave, pCO2ave, pHave,       &     BIOave, CARave, SURave, SUROave, pCO2ave, pHave,
116       &     fluxCO2ave, omegaCave, pfluxave, epfluxave, cfluxave,       &     fluxCO2ave, omegaCave, pfluxave, epfluxave, cfluxave,
117       &     dic_timeave,       &     dic_timeave,
118       &     alpha, rain_ratio, InputFe, omegaC,       &     alpha, rain_ratio, InputFe, omegaC,
119       &     Kpo4, DOPfraction, zcrit, KRemin,       &     Kpo4, DOPfraction, zcrit, KRemin,
# Line 91  C     |================================= Line 121  C     |=================================
121       &     O2crit, alpfe, KScav, ligand_stab, ligand_tot, KFE,       &     O2crit, alpfe, KScav, ligand_stab, ligand_tot, KFE,
122       &     freefemax, par,       &     freefemax, par,
123       &     parfrac, k0, lit0,       &     parfrac, k0, lit0,
124         &     alphaUniform, rainRatioUniform,
125       &     nlev, QSW_underice       &     nlev, QSW_underice
126    
127        integer nlev        INTEGER nlev
128    
129  C     For averages  C     For averages
130        _RL BIOave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)        _RL BIOave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
131        _RL CARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)        _RL CARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
132        _RL SURave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL SURave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
133        _RL SUROave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL SUROave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
134        _RL pCO2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL pCO2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
135        _RL pHave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL pHave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
136        _RL fluxCO2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL fluxCO2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
137        _RL OmegaCave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)        _RL OmegaCave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
138        _RL pfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)        _RL pfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
139        _RL epfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)        _RL epfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
140        _RL cfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)        _RL cfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
141        _RL DIC_timeave(nSx,nSy,nR)        _RL DIC_timeAve(Nr,nSx,nSy)
142    
143  C     values for biogeochemistry  C     values for biogeochemistry
144        _RL par(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL par(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
145        _RL alpha(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL alpha(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
146        _RL rain_ratio(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL rain_ratio(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
147        _RL InputFe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL InputFe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
148        _RL omegaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)        _RL omegaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
149        _RL Kpo4                    _RL Kpo4
150        _RL DOPfraction          _RL DOPfraction
151        _RL zcrit        _RL zcrit
152        _RL KRemin        _RL KRemin
153        _RL KDOPremin        _RL KDOPremin
# Line 134  C     values for biogeochemistry Line 165  C     values for biogeochemistry
165        _RL freefemax        _RL freefemax
166  C     values for light limited bio activity  C     values for light limited bio activity
167        _RL k0, parfrac, lit0        _RL k0, parfrac, lit0
168          _RL alphaUniform
169          _RL rainRatioUniform
170    
171        LOGICAL QSW_underice        LOGICAL QSW_underice
172  #endif  #endif /* DIC_BIOTIC */
173    
174  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
175  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22