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

remove the remaining references to LIM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbc_ice.F90

    r9654 r9656  
    22   !!====================================================================== 
    33   !!                 ***  MODULE  sbc_ice  *** 
    4    !! Surface module - LIM-3: parameters & variables defined in memory 
     4   !! Surface module - SI3 & CICE: parameters & variables defined in memory 
    55   !!====================================================================== 
    6    !! History :  3.0  ! 2006-08  (G. Madec)  Surface module 
    7    !!            3.2  ! 2009-06  (S. Masson) merge with ice_oce 
    8    !!            3.3.1! 2011-01  (A. R. Porter, STFC Daresbury) dynamical allocation 
    9    !!            3.4  ! 2011-11  (C. Harris) CICE added as an option 
     6   !! History :  3.0   !  2006-08  (G. Madec)        Surface module 
     7   !!            3.2   !  2009-06  (S. Masson)       merge with ice_oce 
     8   !!            3.3.1 !  2011-01  (A. R. Porter, STFC Daresbury) dynamical allocation 
     9   !!            3.4   !  2011-11  (C. Harris)       CICE added as an option 
     10   !!            4.0   !  2018     (many people)     SI3 compatibility 
    1011   !!---------------------------------------------------------------------- 
    1112#if defined key_si3 || defined key_cice 
     
    1617   USE sbc_oce          ! surface boundary condition: ocean 
    1718# if defined key_si3 
    18    USE ice              ! LIM-3 parameters 
     19   USE ice              ! SI3 parameters 
    1920# endif 
    2021# if defined key_cice 
     
    3031 
    3132# if defined  key_si3 
    32    LOGICAL         , PUBLIC, PARAMETER ::   lk_si3     = .TRUE.   !: LIM-3 ice model 
     33   LOGICAL         , PUBLIC, PARAMETER ::   lk_si3     = .TRUE.   !: SI3 ice model 
    3334   LOGICAL         , PUBLIC, PARAMETER ::   lk_cice    = .FALSE.  !: no CICE  
    3435   CHARACTER(len=1), PUBLIC, PARAMETER ::   cp_ice_msh = 'C'      !: 'C'-grid ice-velocity 
    3536# endif 
    3637# if defined  key_cice 
    37    LOGICAL         , PUBLIC, PARAMETER ::   lk_si3     = .FALSE.  !: no LIM-3 
     38   LOGICAL         , PUBLIC, PARAMETER ::   lk_si3     = .FALSE.  !: no SI3 
    3839   LOGICAL         , PUBLIC, PARAMETER ::   lk_cice    = .TRUE.   !: CICE ice model 
    3940   CHARACTER(len=1), PUBLIC            ::   cp_ice_msh = 'F'      !: 'F'-grid ice-velocity 
     
    7677#if defined key_cice 
    7778   ! 
    78    ! for consistency with LIM, these are declared with three dimensions 
     79   ! for consistency with SI3, these are declared with three dimensions 
    7980   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   qlw_ice            !: incoming long-wave 
    8081   ! 
     
    9394   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   u_ice, v_ice          ! jpi, jpj 
    9495    
    95    ! already defined in ice.F90 for LIM3 
     96   ! already defined in ice.F90 for SI3 
    9697   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  a_i 
    9798   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  h_i, h_s 
     
    167168   PUBLIC   sbc_ice_alloc   ! 
    168169 
    169    LOGICAL         , PUBLIC, PARAMETER ::   lk_si3     = .FALSE.  !: no LIM-3 ice model 
    170    LOGICAL         , PUBLIC, PARAMETER ::   lk_cice    = .FALSE.  !: no CICE  ice model 
     170   LOGICAL         , PUBLIC, PARAMETER ::   lk_si3     = .FALSE.  !: no SI3 ice model 
     171   LOGICAL         , PUBLIC, PARAMETER ::   lk_cice    = .FALSE.  !: no CICE ice model 
    171172   CHARACTER(len=1), PUBLIC, PARAMETER ::   cp_ice_msh = '-'      !: no grid ice-velocity 
    172173   REAL(wp)        , PUBLIC, PARAMETER ::   cldf_ice = 0.81       !: cloud fraction over sea ice, summer CLIO value   [-] 
Note: See TracChangeset for help on using the changeset viewer.