Changeset 9654


Ignore:
Timestamp:
2018-05-28T11:08:53+02:00 (2 years ago)
Author:
clem
Message:

remove lk_lim3 from the code and replace by lk_si3

Location:
NEMO/trunk/src/OCE
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/IOM/restart.F90

    r9598 r9654  
    2020   USE oce             ! ocean dynamics and tracers  
    2121   USE dom_oce         ! ocean space and time domain 
    22    USE sbc_ice         ! only lk_lim3  
     22   USE sbc_ice         ! only lk_si3  
    2323   USE phycst          ! physical constants 
    2424   USE eosbn2          ! equation of state            (eos bn2 routine) 
  • NEMO/trunk/src/OCE/SBC/sbc_ice.F90

    r9598 r9654  
    1111#if defined key_si3 || defined key_cice 
    1212   !!---------------------------------------------------------------------- 
    13    !!   'key_si3' or 'key_cice' :              LIM-3 or CICE sea-ice model 
     13   !!   'key_si3' or 'key_cice' :              SI3 or CICE sea-ice model 
    1414   !!---------------------------------------------------------------------- 
    1515   USE par_oce          ! ocean parameters 
     
    3030 
    3131# if defined  key_si3 
    32    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3    = .TRUE.   !: LIM-3 ice model 
     32   LOGICAL         , PUBLIC, PARAMETER ::   lk_si3     = .TRUE.   !: LIM-3 ice model 
    3333   LOGICAL         , PUBLIC, PARAMETER ::   lk_cice    = .FALSE.  !: no CICE  
    3434   CHARACTER(len=1), PUBLIC, PARAMETER ::   cp_ice_msh = 'C'      !: 'C'-grid ice-velocity 
    3535# endif 
    3636# if defined  key_cice 
    37    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3    = .FALSE.  !: no LIM-3 
     37   LOGICAL         , PUBLIC, PARAMETER ::   lk_si3     = .FALSE.  !: no LIM-3 
    3838   LOGICAL         , PUBLIC, PARAMETER ::   lk_cice    = .TRUE.   !: CICE ice model 
    3939   CHARACTER(len=1), PUBLIC            ::   cp_ice_msh = 'F'      !: 'F'-grid ice-velocity 
     
    157157#else 
    158158   !!---------------------------------------------------------------------- 
    159    !!   Default option                      NO LIM3 or CICE sea-ice model 
     159   !!   Default option                      NO SI3 or CICE sea-ice model 
    160160   !!---------------------------------------------------------------------- 
    161161   USE lib_mpp          ! MPP library 
     
    167167   PUBLIC   sbc_ice_alloc   ! 
    168168 
    169    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3    = .FALSE.  !: no LIM-3 ice model 
     169   LOGICAL         , PUBLIC, PARAMETER ::   lk_si3     = .FALSE.  !: no LIM-3 ice model 
    170170   LOGICAL         , PUBLIC, PARAMETER ::   lk_cice    = .FALSE.  !: no CICE  ice model 
    171171   CHARACTER(len=1), PUBLIC, PARAMETER ::   cp_ice_msh = '-'      !: no grid ice-velocity 
  • NEMO/trunk/src/OCE/SBC/sbcmod.F90

    r9598 r9654  
    117117#if defined key_agrif 
    118118      IF( Agrif_Root() ) THEN                ! AGRIF zoom (cf r1242: possibility to run without ice in fine grid) 
    119          IF( lk_lim3 )   nn_ice      = 2 
     119         IF( lk_si3 )   nn_ice      = 2 
    120120         IF( lk_cice )   nn_ice      = 3 
    121121      ENDIF 
    122122#else 
    123       IF( lk_lim3 )   nn_ice      = 2 
     123      IF( lk_si3 )   nn_ice      = 2 
    124124      IF( lk_cice )   nn_ice      = 3 
    125125#endif 
Note: See TracChangeset for help on using the changeset viewer.