/[MITgcm]/MITgcm_contrib/torge/itd/code/SEAICE_PARAMS.h
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/SEAICE_PARAMS.h

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

revision 1.3 by torge, Mon Oct 22 19:21:34 2012 UTC revision 1.4 by heimbach, Mon Oct 22 19:26:42 2012 UTC
# Line 377  C     MIN_LWDOWN        :: minimum downw Line 377  C     MIN_LWDOWN        :: minimum downw
377  C     MIN_TICE          :: minimum ice temperature   (deg C)  C     MIN_TICE          :: minimum ice temperature   (deg C)
378  C     SEAICE_EPS        :: small number used to reduce derivative singularities  C     SEAICE_EPS        :: small number used to reduce derivative singularities
379  C     SEAICE_EPS_SQ     :: small number square  C     SEAICE_EPS_SQ     :: small number square
 CToM<<<  
 C     Hlimit            :: ice thickness category limits (m), array of size nITD+1  
 C     Hlimit_c1,_c2,_c3 :: coefficients set in seaice_readparams.F to calculate Hlimit in seaice_init_fixed.F  
 C>>>ToM  
380  C  C
381        _RL MAX_HEFF, MIN_ATEMP, MIN_LWDOWN, MIN_TICE        _RL MAX_HEFF, MIN_ATEMP, MIN_LWDOWN, MIN_TICE
382        _RL SEAICE_EPS, SEAICE_EPS_SQ        _RL SEAICE_EPS, SEAICE_EPS_SQ
 CToM<<<  
       _RL Hlimit(0:nITD)  
       _RL Hlimit_c1, Hlimit_c2, Hlimit_c3  
 C>>>ToM  
383        COMMON /SEAICE_BOUND_RL/        COMMON /SEAICE_BOUND_RL/
384       &     MAX_HEFF, MIN_ATEMP, MIN_LWDOWN, MIN_TICE,       &     MAX_HEFF, MIN_ATEMP, MIN_LWDOWN, MIN_TICE,
385       &     SEAICE_EPS, SEAICE_EPS_SQ       &     SEAICE_EPS, SEAICE_EPS_SQ
386    
387    #ifdef SEAICE_ITD
388  CToM<<<  CToM<<<
389  C     &     SEAICE_EPS, SEAICE_EPS_SQ  C     Hlimit            :: ice thickness category limits (m), array of size nITD+1
390       &     SEAICE_EPS, SEAICE_EPS_SQ,  C     Hlimit_c1,_c2,_c3 :: coefficients set in seaice_readparams.F to calculate Hlimit in seaice_init_fixed.F
391          _RL Hlimit(0:nITD)
392          _RL Hlimit_c1, Hlimit_c2, Hlimit_c3
393          COMMON /SEAICE_BOUND_ITD_RL/
394       &     Hlimit,       &     Hlimit,
395       &     Hlimit_c1,Hlimit_c2,Hlimit_c3       &     Hlimit_c1,Hlimit_c2,Hlimit_c3
396  C>>>ToM  C>>>ToM
397    #endif /* SEAICE_ITD */
398    
399  C--   Constants used by sea-ice model  C--   Constants used by sea-ice model
400        _RL         ZERO           , ONE           , TWO        _RL         ZERO           , ONE           , TWO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22