/[MITgcm]/MITgcm/pkg/thsice/THSICE_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/thsice/THSICE_PARAMS.h

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

revision 1.2 by jmc, Wed Dec 31 17:44:32 2003 UTC revision 1.3 by jmc, Wed Apr 7 23:40:34 2004 UTC
# Line 118  C---+----1----+----2----+----3----+----4 Line 118  C---+----1----+----2----+----3----+----4
118    
119  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
120    
121    C--   COMMON / THSICE_PAR_L / ice model (logical) parameters
122    c     stepFwd_oceMxL  :: step forward mixed-layer T & S (slab-ocean)
123          COMMON / THSICE_PAR_L /
124         &  stepFwd_oceMxL
125    
126          LOGICAL stepFwd_oceMxL
127    
128  C--   COMMON / THSICE_PAR_I / ice model (integer) parameters  C--   COMMON / THSICE_PAR_I / ice model (integer) parameters
129  c  startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files  c     startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files
130  c  nitMaxTsf     :: maximum Nb of iter to find Surface Temp (Trsf)  c     nitMaxTsf     :: maximum Nb of iter to find Surface Temp (Trsf)
131        COMMON / THSICE_PAR_I /        COMMON / THSICE_PAR_I /
132       &  startIceModel, nitMaxTsf       &  startIceModel, nitMaxTsf
133    
# Line 128  c  nitMaxTsf     :: maximum Nb of iter t Line 135  c  nitMaxTsf     :: maximum Nb of iter t
135        INTEGER nitMaxTsf        INTEGER nitMaxTsf
136    
137  C--   COMMON / THSICE_PAR_R / ice model (real) parameters  C--   COMMON / THSICE_PAR_R / ice model (real) parameters
138  C     thSIce_deltaT     :: ice model time-step  C     thSIce_deltaT   :: ice model time-step
139  C     stressReduction  :: reduction factor for wind-stress under sea-ice [0-1]  C     ocean_deltaT    :: ocean mixed-layer time-step
140  C     thSIce_taveFreq   :: Frequency^-1 for time-Aver. output (s)  C     tauRelax_MxL    :: Relaxation time scale for MixLayer T & S [s]
141  C     thSIce_diagFreq   :: Frequency^-1 for diagnostic output (s)  C     hMxL_default    :: default value for ocean MixLayer thickness [m]
142  C     thSIce_monFreq    :: Frequency^-1 for monitor    output (s)  C     sMxL_default    :: default value for salinity in MixLayer [psu]
143    C     vMxL_default    :: default value for ocean current velocity in MxL [m/s]
144    C     stressReduction :: reduction factor for wind-stress under sea-ice [0-1]
145    C     thSIce_taveFreq :: Frequency^-1 for time-Aver. output [s]
146    C     thSIce_diagFreq :: Frequency^-1 for diagnostic output [s]
147    C     thSIce_monFreq  :: Frequency^-1 for monitor    output [s]
148        COMMON / THSICE_PAR_R /        COMMON / THSICE_PAR_R /
149       &  thSIce_deltaT,       &  thSIce_deltaT, ocean_deltaT, tauRelax_MxL,
150         &  hMxL_default,  sMxL_default, vMxL_default,
151       &  stressReduction,       &  stressReduction,
152       &  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq       &  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq
153    
154        _RL  thSIce_deltaT        _RL  thSIce_deltaT, ocean_deltaT, tauRelax_MxL
155          _RL  hMxL_default, sMxL_default, vMxL_default
156        _RL  stressReduction        _RL  stressReduction
157        _RL  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq        _RL  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq
158    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22