/[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.2 by dimitri, Fri Apr 27 22:25:23 2012 UTC revision 1.3 by torge, Wed Sep 26 17:03:29 2012 UTC
# Line 231  C     Hunke, JCP, 2001 use 615 kg/m^2 fo Line 231  C     Hunke, JCP, 2001 use 615 kg/m^2 fo
231  CToM<<<  CToM<<<
232  C     Coefficients used to calculate sea ice thickness category limits  C     Coefficients used to calculate sea ice thickness category limits
233  C     after Lipscomb et al. (2001, JGR), Equ. 22  C     after Lipscomb et al. (2001, JGR), Equ. 22
234    C     choose between
235    C      - original parameters of Lipscomb et al. (2001):
236    C        c1=3.0/N, c2=15*c1, c3=3.0
237    C      - and a higher resolution of thin end of ITD:
238    C        c1=1.5/N, c2=42*c1, c3=3.3
239        Hlimit_c1          = 3.0        Hlimit_c1          = 3.0
240        Hlimit_c2          = 15.        Hlimit_c2          = 15.
241        Hlimit_c3          = 3.0        Hlimit_c3          = 3.0
# Line 299  CToM<<< Line 304  CToM<<<
304  C#ifdef SEAICE_MULTICATEGORY  C#ifdef SEAICE_MULTICATEGORY
305  #if defined(SEAICE_MULTICATEGORY) || defined(SEAICE_ITD)  #if defined(SEAICE_MULTICATEGORY) || defined(SEAICE_ITD)
306  C in case defined(SEAICE_ITD) MULTDIM = nITD (see SEAICE_SIZE.h)  C in case defined(SEAICE_ITD) MULTDIM = nITD (see SEAICE_SIZE.h)
307    C because SEAICE_ITD uses code related to SEAICE_MULTICATEGORY
308  C>>>ToM  C>>>ToM
309        SEAICE_multDim     = MULTDIM        SEAICE_multDim     = MULTDIM
310  #else  #else
# Line 363  c     DIFF1      = .004 _d 0 Line 369  c     DIFF1      = .004 _d 0
369        SEAICE_area_reg   = siEPS        SEAICE_area_reg   = siEPS
370  #endif  #endif
371        SEAICE_hice_reg   = 0.05 _d 0        SEAICE_hice_reg   = 0.05 _d 0
372        SEAICE_area_max    = 1.00 _d 0        SEAICE_area_max   = 1.00 _d 0
373    
374        SEAICE_airTurnAngle   = 0.0 _d 0        SEAICE_airTurnAngle   = 0.0 _d 0
375        SEAICE_waterTurnAngle = 0.0 _d 0        SEAICE_waterTurnAngle = 0.0 _d 0
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22