/[MITgcm]/MITgcm_contrib/torge/itd/code/seaice_readparms.F
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/seaice_readparms.F

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

revision 1.1 by dimitri, Fri Apr 27 22:22:17 2012 UTC revision 1.2 by dimitri, Fri Apr 27 22:25:23 2012 UTC
# Line 131  C--   SEAICE parameters Line 131  C--   SEAICE parameters
131       & MAX_HEFF, MIN_ATEMP, MIN_LWDOWN, MAX_TICE, MIN_TICE,       & MAX_HEFF, MIN_ATEMP, MIN_LWDOWN, MAX_TICE, MIN_TICE,
132       & SEAICE_EPS, SEAICE_EPS_SQ,       & SEAICE_EPS, SEAICE_EPS_SQ,
133       & SEAICE_tave_mnc, SEAICE_dump_mnc, SEAICE_mon_mnc,       & SEAICE_tave_mnc, SEAICE_dump_mnc, SEAICE_mon_mnc,
134       & SEAICE_debugPointI, SEAICE_debugPointJ  CToM<<<
135    C     & SEAICE_debugPointI, SEAICE_debugPointJ
136         & SEAICE_debugPointI, SEAICE_debugPointJ,
137         & Hlimit_c1, Hlimit_c2, Hlimit_c3
138    C>>>ToM
139    
140  #ifdef ALLOW_COST  #ifdef ALLOW_COST
141        NAMELIST /SEAICE_PARM02/        NAMELIST /SEAICE_PARM02/
# Line 224  C     Hunke, JCP, 2001 use 615 kg/m^2 fo Line 228  C     Hunke, JCP, 2001 use 615 kg/m^2 fo
228        SEAICE_mon_mnc  = .FALSE.        SEAICE_mon_mnc  = .FALSE.
229  #endif  #endif
230        SEAICE_initialHEFF = ZERO        SEAICE_initialHEFF = ZERO
231    CToM<<<
232    C     Coefficients used to calculate sea ice thickness category limits
233    C     after Lipscomb et al. (2001, JGR), Equ. 22
234          Hlimit_c1          = 3.0
235          Hlimit_c2          = 15.
236          Hlimit_c3          = 3.0
237    C>>>ToM
238        SEAICE_rhoIce      = 0.91   _d +03        SEAICE_rhoIce      = 0.91   _d +03
239        SEAICE_rhoSnow     = 330.   _d 0        SEAICE_rhoSnow     = 330.   _d 0
240        ICE2WATR           = UNSET_RL        ICE2WATR           = UNSET_RL
# Line 284  C     old default value of 0.97001763668 Line 295  C     old default value of 0.97001763668
295        SEAICE_shortwave   = 0.30   _d 0        SEAICE_shortwave   = 0.30   _d 0
296        SEAICE_salt0       = 0.0    _d 0        SEAICE_salt0       = 0.0    _d 0
297        SEAICE_saltFrac    = 0.0    _d 0        SEAICE_saltFrac    = 0.0    _d 0
298  #ifdef SEAICE_MULTICATEGORY  CToM<<<
299    C#ifdef SEAICE_MULTICATEGORY
300    #if defined(SEAICE_MULTICATEGORY) || defined(SEAICE_ITD)
301    C in case defined(SEAICE_ITD) MULTDIM = nITD (see SEAICE_SIZE.h)
302    C>>>ToM
303        SEAICE_multDim     = MULTDIM        SEAICE_multDim     = MULTDIM
304  #else  #else
305        SEAICE_multDim     = 1        SEAICE_multDim     = 1
# Line 620  C     to set SEAICE_mcPheePiston once dr Line 635  C     to set SEAICE_mcPheePiston once dr
635          STOP 'ABNORMAL END: S/R SEAICE_READPARMS'          STOP 'ABNORMAL END: S/R SEAICE_READPARMS'
636        ENDIF        ENDIF
637    
638    CToM<<<
639    #ifdef SEAICE_ITD
640    C     The ice thickness distribution module can only be used with
641    C      package seaice calling
642    C      SEAICE_ADVDIFF and
643    C      SEAICE_GROWTH, i.e. needs usePW79thermodynamics = .TRUE.
644          useTHSice = .FALSE.
645    #endif
646    C>>>ToM
647        IF ( useThSice ) THEN        IF ( useThSice ) THEN
648  C     If the thsice package with the Winton thermodynamics is used  C     If the thsice package with the Winton thermodynamics is used
649  C     is does not make sense to have the following parameters defined,  C     is does not make sense to have the following parameters defined,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22