/[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.2 by dfer, Tue Apr 8 20:21:35 2008 UTC revision 1.3 by jmc, Wed Apr 9 18:54:50 2008 UTC
# 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 77  C schmidt number coefficients Line 77  C schmidt number coefficients
77        _RL  sox4        _RL  sox4
78    
79  C--   COMMON /DIC_FILENAMES/  C--   COMMON /DIC_FILENAMES/
80  C  WindFileDic    :: file name of wind speeds  C  DIC_windFile    :: file name of wind speeds
81  C  AtmospFileDic  :: file name of atmospheric pressure  C  DIC_atmospFile  :: file name of atmospheric pressure
82  C  IceFileDic     :: file name of seaice fraction  C  DIC_iceFile     :: file name of seaice fraction
83  C  IronFileDic    :: file name of aeolian iron flux  C  DIC_ironFile    :: file name of aeolian iron flux
84  C  SilicaFileDic  :: file name of surface silica  C  DIC_silicaFile  :: file name of surface silica
85  C  dic_ForcingPeriod :: periodic forcing parameter specific for dic (seconds)  C  DIC_forcingPeriod :: periodic forcing parameter specific for dic (seconds)
86  C  dic_ForcingCycle  :: periodic forcing parameter specific for dic (seconds)  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  C  dic_int*          :: place holder to read in a integer number, set at run time
 C  dic_pCO2          :: Atmospheric pCO2 to be rad in data.dic  
89    
90        COMMON /DIC_FILENAMES/        COMMON /DIC_FILENAMES/
91       &        WindFileDic, AtmospFileDic, IceFileDic,       &        DIC_windFile, DIC_atmospFile, DIC_iceFile,
92       &        IronFileDic, SilicaFileDic,       &        DIC_ironFile, DIC_silicaFile,
93       &        dic_ForcingPeriod, dic_ForcingCycle,       &        DIC_forcingPeriod, DIC_forcingCycle,
94       &        dic_int1, dic_int2, dic_int3, dic_int4, dic_pCO2       &        dic_pCO2, dic_int1, dic_int2, dic_int3, dic_int4
95    
96        CHARACTER*(MAX_LEN_FNAM) WindFileDic        CHARACTER*(MAX_LEN_FNAM) DIC_windFile
97        CHARACTER*(MAX_LEN_FNAM) AtmospFileDic        CHARACTER*(MAX_LEN_FNAM) DIC_atmospFile
98        CHARACTER*(MAX_LEN_FNAM) IceFileDic        CHARACTER*(MAX_LEN_FNAM) DIC_iceFile
99        CHARACTER*(MAX_LEN_FNAM) IronFileDic        CHARACTER*(MAX_LEN_FNAM) DIC_ironFile
100        CHARACTER*(MAX_LEN_FNAM) SilicaFileDic        CHARACTER*(MAX_LEN_FNAM) DIC_silicaFile
101        _RL     dic_ForcingPeriod        _RL     DIC_forcingPeriod
102        _RL     dic_ForcingCycle        _RL     DIC_forcingCycle
103          _RL dic_pCO2
104        INTEGER dic_int1        INTEGER dic_int1
105        INTEGER dic_int2        INTEGER dic_int2
106        INTEGER dic_int3        INTEGER dic_int3
107        INTEGER dic_int4        INTEGER dic_int4
       _RL dic_pCO2  
108    
109  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
110  C     /==========================================================\  C     /==========================================================\
# Line 112  C     | o Biological Carbon Variables Line 112  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 123  C     |================================= Line 123  C     |=================================
123       &     parfrac, k0, lit0,       &     parfrac, k0, lit0,
124       &     nlev, QSW_underice       &     nlev, QSW_underice
125    
126        integer nlev        INTEGER nlev
127    
128  C     For averages  C     For averages
129        _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)
# Line 145  C     values for biogeochemistry Line 145  C     values for biogeochemistry
145        _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)
146        _RL InputFe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL InputFe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
147        _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)
148        _RL Kpo4                    _RL Kpo4
149        _RL DOPfraction          _RL DOPfraction
150        _RL zcrit        _RL zcrit
151        _RL KRemin        _RL KRemin
152        _RL KDOPremin        _RL KDOPremin
# Line 166  C     values for light limited bio activ Line 166  C     values for light limited bio activ
166        _RL k0, parfrac, lit0        _RL k0, parfrac, lit0
167    
168        LOGICAL QSW_underice        LOGICAL QSW_underice
169  #endif  #endif /* DIC_BIOTIC */
170    
171  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
172  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22