/[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.3 by jmc, Wed Apr 7 23:40:34 2004 UTC revision 1.4 by jmc, Fri Dec 17 04:29:07 2004 UTC
# Line 119  C---+----1----+----2----+----3----+----4 Line 119  C---+----1----+----2----+----3----+----4
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  C--   COMMON / THSICE_PAR_L / ice model (logical) parameters
122  c     stepFwd_oceMxL  :: step forward mixed-layer T & S (slab-ocean)  C     stepFwd_oceMxL  :: step forward mixed-layer T & S (slab-ocean)
123    C     thSIce_tave_mdsio :: write TimeAverage output using MDSIO
124    C     thSIce_diag_mdsio :: write snap-shot output   using MDSIO
125    C     thSIce_mon_stdio  :: write monitor to std-outp
126    C     thSIce_tave_mnc   :: write TimeAverage output using MNC
127    C     thSIce_diag_mnc   :: write snap-shot output   using MNC
128    C     thSIce_mon_mnc    :: write monitor to netcdf file
129        COMMON / THSICE_PAR_L /        COMMON / THSICE_PAR_L /
130       &  stepFwd_oceMxL       &  stepFwd_oceMxL,
131         &  thSIce_tave_mdsio, thSIce_diag_mdsio, thSIce_mon_stdio,
132         &  thSIce_tave_mnc,   thSIce_diag_mnc,   thSIce_mon_mnc
133    
134        LOGICAL stepFwd_oceMxL        LOGICAL stepFwd_oceMxL
135          LOGICAL thSIce_tave_mdsio, thSIce_diag_mdsio, thSIce_mon_stdio
136          LOGICAL thSIce_tave_mnc,   thSIce_diag_mnc,   thSIce_mon_mnc
137    
138  C--   COMMON / THSICE_PAR_I / ice model (integer) parameters  C--   COMMON / THSICE_PAR_I / ice model (integer) parameters
139  c     startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files  c     startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files
140    c                   :: -1 : start from a small pickup (without Mix.Layer)
141  c     nitMaxTsf     :: maximum Nb of iter to find Surface Temp (Trsf)  c     nitMaxTsf     :: maximum Nb of iter to find Surface Temp (Trsf)
142        COMMON / THSICE_PAR_I /        COMMON / THSICE_PAR_I /
143       &  startIceModel, nitMaxTsf       &  startIceModel, nitMaxTsf
# Line 156  C     thSIce_monFreq  :: Frequency^-1 fo Line 167  C     thSIce_monFreq  :: Frequency^-1 fo
167        _RL  stressReduction        _RL  stressReduction
168        _RL  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq        _RL  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq
169    
170    C--   COMMON / THSICE_PAR_C / ice model (character) parameters
171    C     thSIceFract_InitFile :: File name for initial ice fraction
172    C     thSIceThick_InitFile :: File name for initial ice thickness
173    C     thSIceSnowH_InitFile :: File name for initial snow thickness
174    C     thSIceSnowA_InitFile :: File name for initial snow Age
175    C     thSIceEnthp_InitFile :: File name for initial ice enthalpy
176    C     thSIceTsurf_InitFile :: File name for initial surf. temp
177          COMMON / THSICE_PAR_C /
178         &  thSIceFract_InitFile,
179         &  thSIceThick_InitFile,
180         &  thSIceSnowH_InitFile,
181         &  thSIceSnowA_InitFile,
182         &  thSIceEnthp_InitFile,
183         &  thSIceTsurf_InitFile
184          CHARACTER*(MAX_LEN_FNAM) thSIceFract_InitFile
185          CHARACTER*(MAX_LEN_FNAM) thSIceThick_InitFile
186          CHARACTER*(MAX_LEN_FNAM) thSIceSnowH_InitFile
187          CHARACTER*(MAX_LEN_FNAM) thSIceSnowA_InitFile
188          CHARACTER*(MAX_LEN_FNAM) thSIceEnthp_InitFile
189          CHARACTER*(MAX_LEN_FNAM) thSIceTsurf_InitFile
190    
191  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
192    
193  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22