New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9656 – NEMO

Changeset 9656


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

remove the remaining references to LIM

Location:
NEMO/trunk/src
Files:
24 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icedyn_adv_pra.F90

    r9604 r9656  
    44   !!   sea-ice : advection => Prather scheme 
    55   !!====================================================================== 
    6    !! History :       !  2008-03  (M. Vancoppenolle) LIM-3 from LIM-2 code 
     6   !! History :       !  2008-03  (M. Vancoppenolle) original code 
    77   !!            4.0  !  2018     (many people)      SI3 [aka Sea Ice cube] 
    88   !!-------------------------------------------------------------------- 
  • NEMO/trunk/src/ICE/icedyn_rhg_evp.F90

    r9610 r9656  
    55   !!====================================================================== 
    66   !! History :   -   !  2007-03  (M.A. Morales Maqueda, S. Bouillon) Original code 
    7    !!            3.0  !  2008-03  (M. Vancoppenolle) LIM3 
     7   !!            3.0  !  2008-03  (M. Vancoppenolle) adaptation to new model 
    88   !!             -   !  2008-11  (M. Vancoppenolle, S. Bouillon, Y. Aksenov) add surface tilt in ice rheolohy  
    99   !!            3.3  !  2009-05  (G.Garric)    addition of the evp case 
    1010   !!            3.4  !  2011-01  (A. Porter)   dynamical allocation  
    1111   !!            3.5  !  2012-08  (R. Benshila) AGRIF 
    12    !!            3.6  !  2016-06  (C. Rousset)  Rewriting + landfast ice + possibility to use mEVP (Bouillon 2013) 
     12   !!            3.6  !  2016-06  (C. Rousset)  Rewriting + landfast ice + mEVP (Bouillon 2013) 
    1313   !!            3.7  !  2017     (C. Rousset)  add aEVP (Kimmritz 2016-2017) 
    1414   !!            4.0  !  2018     (many people) SI3 [aka Sea Ice cube] 
  • NEMO/trunk/src/ICE/iceistate.F90

    r9604 r9656  
    260260                     WRITE(numout,*) 
    261261                     WRITE(numout,*) ' !!!! ALERT itest is not equal to 4      !!! ' 
    262                      WRITE(numout,*) ' !!!! Something is wrong in the LIM3 initialization procedure ' 
     262                     WRITE(numout,*) ' !!!! Something is wrong in the SI3 initialization procedure ' 
    263263                     WRITE(numout,*) 
    264264                     WRITE(numout,*) ' *** itest_i (i=1,4) = ', itest(:) 
  • NEMO/trunk/src/ICE/icethd.F90

    r9604 r9656  
    44   !!   sea-ice : master routine for thermodynamics 
    55   !!====================================================================== 
    6    !! History :  1.0  !  2000-01  (M.A. Morales Maqueda, H. Goosse, T. Fichefet) LIM-1 
    7    !!            2.0  !  2002-07  (C. Ethe, G. Madec) LIM-2 
    8    !!            3.0  !  2005-11  (M. Vancoppenolle)  LIM-3 
     6   !! History :  1.0  !  2000-01  (M.A. Morales Maqueda, H. Goosse, T. Fichefet) original code 1D 
    97   !!            4.0  !  2018     (many people)       SI3 [aka Sea Ice cube] 
    108   !!---------------------------------------------------------------------- 
  • NEMO/trunk/src/ICE/icethd_pnd.F90

    r9604 r9656  
    44   !!   sea-ice: Melt ponds on top of sea ice 
    55   !!====================================================================== 
    6    !! history :       !  2012     (O. Lecomte)       Adaptation to LIM from Flocco and Turner 
     6   !! history :       !  2012     (O. Lecomte)       Adaptation from Flocco and Turner 
    77   !!                 !  2017     (M. Vancoppenolle, O. Lecomte, C. Rousset) Implementation 
    88   !!            4.0  !  2018     (many people)      SI3 [aka Sea Ice cube] 
  • NEMO/trunk/src/ICE/icethd_sal.F90

    r9604 r9656  
    44   !!   sea-ice : computation of salinity variations in the ice 
    55   !!====================================================================== 
    6    !! History :   -   !  2003-05  (M. Vancoppenolle) UCL-ASTR first coding for LIM3-1D 
     6   !! History :   -   !  2003-05  (M. Vancoppenolle) original code 1-D 
    77   !!            3.0  !  2005-12  (M. Vancoppenolle) adapted to the 3-D version 
    88   !!            4.0  !  2018     (many people)      SI3 [aka Sea Ice cube] 
  • NEMO/trunk/src/ICE/icethd_zdf_bl99.F90

    r9604 r9656  
    44   !!   sea-ice: vertical heat diffusion in sea ice (computation of temperatures)  
    55   !!====================================================================== 
    6    !! History :       !  2003-02  (M. Vancoppenolle) original 1D code LIM 
     6   !! History :       !  2003-02  (M. Vancoppenolle) original 1D code 
    77   !!                 !  2005-06  (M. Vancoppenolle) 3d version 
    88   !!            4.0  !  2018     (many people)      SI3 [aka Sea Ice cube] 
  • NEMO/trunk/src/NST/agrif_ice.F90

    r9598 r9656  
    44   !! AGRIF :   define in memory AGRIF variables for sea-ice 
    55   !!---------------------------------------------------------------------- 
    6    !! History :  3.4  ! 2012-08  (R. Benshila)  Original code 
    7    !!            3.6  ! 2016-05  (C. Rousset)   Add LIM3 compatibility 
     6   !! History :  3.4   !  2012-08  (R. Benshila)          Original code 
     7   !!            4.0   !  2018     (C. Rousset)           SI3 compatibility 
    88   !!---------------------------------------------------------------------- 
    99#if defined key_agrif && defined key_si3 
    1010   !!---------------------------------------------------------------------- 
    1111   !!   'key_agrif'                                              AGRIF zoom 
    12    !!   'key_si3'                                       SI3 sea-ice model 
     12   !!   'key_si3'                                         SI3 sea-ice model 
    1313   !!----------------------------------------------------------------------    
    1414   IMPLICIT NONE 
  • NEMO/trunk/src/NST/agrif_ice_interp.F90

    r9610 r9656  
    33   !!                       ***  MODULE agrif_ice_interp *** 
    44   !! Nesting module :  interp surface ice boundary condition from a parent grid 
    5    !! Sea-Ice model  :  LIM 3.6 Sea ice model time-stepping 
    65   !!===================================================================================== 
    7    !! History :  2.0   !  04-2008  (F. Dupont)  initial version 
     6   !! History :  2.0   !  04-2008  (F. Dupont)               initial version 
    87   !!            3.4   !  09-2012  (R. Benshila, C. Herbaut) update and EVP 
    9    !!            3.6   !  05-2016  (C. Rousset)  Add LIM3 compatibility 
     8   !!            4.0   !  2018     (C. Rousset)              SI3 compatibility 
    109   !!---------------------------------------------------------------------- 
    1110#if defined key_agrif && defined key_si3  
    1211   !!---------------------------------------------------------------------- 
    13    !!   'key_si3'  :                                 LIM 3.6 sea-ice model 
    14    !!   'key_agrif' :                                 AGRIF library 
     12   !!   'key_si3'                                         SI3 sea-ice model 
     13   !!   'key_agrif'                                       AGRIF library 
    1514   !!---------------------------------------------------------------------- 
    1615   !!  agrif_interp_ice    : interpolation of ice at "after" sea-ice time step 
     
    4140   SUBROUTINE agrif_interp_ice( cd_type, kiter, kitermax ) 
    4241      !!----------------------------------------------------------------------- 
    43       !!                 *** ROUTINE agrif_rhg_lim3  *** 
     42      !!                 *** ROUTINE agrif_interp_ice  *** 
    4443      !! 
    4544      !!  ** Method  : simple call to atomic routines using stored values to 
  • NEMO/trunk/src/NST/agrif_ice_update.F90

    r9610 r9656  
    66   !!                       ***  MODULE agrif_ice_update *** 
    77   !! Nesting module :  update surface ocean boundary condition over ice from a child grid 
    8    !! Sea-Ice model  :  LIM 3.6 Sea ice model time-stepping 
    98   !!===================================================================================== 
    10    !! History :  2.0   !  04-2008  (F. Dupont)  initial version 
     9   !! History :  2.0   !  04-2008  (F. Dupont)               initial version 
    1110   !!            3.4   !  08-2012  (R. Benshila, C. Herbaut) update and EVP 
    12    !!            3.6   !  05-2016  (C. Rousset)  Add LIM3 compatibility 
     11   !!            4.0   !  2018     (C. Rousset)              SI3 compatibility 
    1312   !!---------------------------------------------------------------------- 
    1413#if defined key_agrif && defined key_si3 
    1514   !!---------------------------------------------------------------------- 
    16    !!   'key_si3'  :                                 LIM 3.6 sea-ice model 
    17    !!   'key_agrif' :                                 AGRIF library  
     15   !!   'key_si3'  :                                      SI3 sea-ice model 
     16   !!   'key_agrif' :                                     AGRIF library  
    1817   !!---------------------------------------------------------------------- 
    1918   !!   agrif_update_ice  : update sea-ice on boundaries or total 
    2019   !!                        child domain for velocities and ice properties 
    21    !!   update_tra_ice     : sea-ice properties 
    22    !!   update_u_ice       : zonal      ice velocity 
    23    !!   update_v_ice       : meridional ice velocity 
     20   !!   update_tra_ice    : sea-ice properties 
     21   !!   update_u_ice      : zonal      ice velocity 
     22   !!   update_v_ice      : meridional ice velocity 
    2423   !!---------------------------------------------------------------------- 
    2524   USE dom_oce 
  • NEMO/trunk/src/NST/agrif_user.F90

    r9610 r9656  
    497497   !!                 *** ROUTINE Agrif_InitValues_cont_ice *** 
    498498   !! 
    499    !! ** Purpose :: Initialisation of variables to be interpolated for LIM3 
     499   !! ** Purpose :: Initialisation of variables to be interpolated for ice 
    500500   !!---------------------------------------------------------------------- 
    501501   USE Agrif_Util 
     
    541541   !!                 *** ROUTINE agrif_declare_var_ice *** 
    542542   !! 
    543    !! ** Purpose :: Declaration of variables to be interpolated for LIM3 
     543   !! ** Purpose :: Declaration of variables to be interpolated for ice 
    544544   !!---------------------------------------------------------------------- 
    545545   USE Agrif_Util 
  • NEMO/trunk/src/OCE/ASM/asminc.F90

    r9598 r9656  
    826826      REAL(wp) ::   zincwgt   ! IAU weight for current time step 
    827827#if defined key_si3 
    828       REAL(wp), DIMENSION(jpi,jpj) ::   zofrld, zohicif, zseaicendg, zhicifinc  ! LIM 
     828      REAL(wp), DIMENSION(jpi,jpj) ::   zofrld, zohicif, zseaicendg, zhicifinc 
    829829      REAL(wp) ::   zhicifmin = 0.5_wp      ! ice minimum depth in metres 
    830830#endif 
     
    847847            ENDIF 
    848848            ! 
    849             ! Sea-ice : LIM-3 case 
     849            ! Sea-ice : SI3 case 
    850850            ! 
    851851#if defined key_si3 
     
    896896            neuler = 0                    ! Force Euler forward step 
    897897            ! 
    898             ! Sea-ice : LIM-3 case 
     898            ! Sea-ice : SI3 case 
    899899            ! 
    900900#if defined key_si3 
  • NEMO/trunk/src/OCE/BDY/bdy_oce.F90

    r9598 r9656  
    88   !!            3.3  !  2010-09  (D. Storkey) add ice boundary conditions 
    99   !!            3.4  !  2011     (D. Storkey) rewrite in preparation for OBC-BDY merge 
    10    !!            3.6  !  2014-01  (C. Rousset) add ice boundary conditions for lim3 
     10   !!            3.6  !  2014-01  (C. Rousset) add ice boundary conditions for new model 
     11   !!            4.0  !  2018     (C. Rousset) SI3 compatibility 
    1112   !!---------------------------------------------------------------------- 
    1213   USE par_oce         ! ocean parameters 
  • NEMO/trunk/src/OCE/BDY/bdydta.F90

    r9629 r9656  
    1111   !!            3.3  !  2010-09  (D.Storkey) add ice boundary conditions 
    1212   !!            3.4  !  2011     (D. Storkey) rewrite in preparation for OBC-BDY merge 
    13    !!            3.6  !  2012-01  (C. Rousset) add ice boundary conditions for lim3 
     13   !!            3.6  !  2012-01  (C. Rousset) add ice boundary conditions for sea ice 
     14   !!            4.0  !  2018     (C. Rousset) SI3 compatibility 
    1415   !!---------------------------------------------------------------------- 
    1516 
  • NEMO/trunk/src/OCE/BDY/bdyice.F90

    r9598 r9656  
    22   !!====================================================================== 
    33   !!                       ***  MODULE  bdyice  *** 
    4    !! Unstructured Open Boundary Cond. :  Open boundary conditions for sea-ice (LIM3) 
     4   !! Unstructured Open Boundary Cond. :  Open boundary conditions for sea-ice (SI3) 
    55   !!====================================================================== 
    66   !!  History :  3.3  !  2010-09 (D. Storkey)  Original code 
    7    !!             3.4  !  2011    (D. Storkey)  rewrite in preparation for OBC-BDY merge 
    8    !!              -   !  2012-01 (C. Rousset)  add lim3 and remove useless jk loop  
     7   !!             3.4  !  2012-01 (C. Rousset)  add new sea ice model  
     8   !!             4.0  !  2018    (C. Rousset)  SI3 compatibility  
    99   !!---------------------------------------------------------------------- 
    1010#if defined key_si3 
    1111   !!---------------------------------------------------------------------- 
    12    !!   'key_si3'                                                 LIM-3 sea ice model 
     12   !!   'key_si3'                                          SI3 sea ice model 
    1313   !!---------------------------------------------------------------------- 
    1414   !!   bdy_ice        : Application of open boundaries to ice 
     
    3737 
    3838   PUBLIC   bdy_ice     ! routine called in sbcmod 
    39    PUBLIC   bdy_ice_dyn ! routine called in limrhg 
     39   PUBLIC   bdy_ice_dyn ! routine called in icedyn_rhg_evp 
    4040 
    4141   !!---------------------------------------------------------------------- 
     
    5050      !!                  ***  SUBROUTINE bdy_ice  *** 
    5151      !! 
    52       !! ** Purpose : - Apply open boundary conditions for ice (LIM3) 
     52      !! ** Purpose : - Apply open boundary conditions for ice (SI3) 
    5353      !! 
    5454      !!---------------------------------------------------------------------- 
  • NEMO/trunk/src/OCE/C1D/step_c1d.F90

    r9598 r9656  
    3838      !!                     ***  ROUTINE stp_c1d  *** 
    3939      !!                       
    40       !! ** Purpose :  - Time stepping of SBC including LIM (dynamic and thermodynamic eqs.) 
     40      !! ** Purpose :  - Time stepping of SBC including sea ice (dynamic and thermodynamic eqs.) 
    4141      !!               - Time stepping of OPA (momentum and active tracer eqs.) 
    4242      !!               - Time stepping of TOP (passive tracer eqs.) 
  • NEMO/trunk/src/OCE/DOM/phycst.F90

    r9598 r9656  
    8484#endif 
    8585#if defined key_cice 
    86    REAL(wp), PUBLIC ::   rcdsn    =    0.31_wp       !: thermal conductivity of snow                          [W/m/K], now namelist parameter for LIM3 
     86   REAL(wp), PUBLIC ::   rcdsn    =    0.31_wp       !: thermal conductivity of snow                          [W/m/K] 
    8787#endif 
    8888#if defined key_si3 
  • NEMO/trunk/src/OCE/ICB/icbutl.F90

    r9598 r9656  
    2323   USE sbc_oce                             ! ocean surface boundary conditions 
    2424#if defined key_si3 
    25    USE ice,    ONLY: u_ice, v_ice, hm_i    ! LIM-3 variables 
     25   USE ice,    ONLY: u_ice, v_ice, hm_i    ! SI3 variables 
    2626#endif 
    2727 
  • NEMO/trunk/src/OCE/OBS/diaobs.F90

    r9598 r9656  
    501501      USE phycst , ONLY : rday                ! Physical constants 
    502502#if defined  key_si3 
    503       USE ice    , ONLY : at_i                ! LIM3 Ice model variables 
     503      USE ice    , ONLY : at_i                ! SI3 Ice model variables 
    504504#endif 
    505505#if defined key_cice 
  • 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   [-] 
  • NEMO/trunk/src/OCE/SBC/sbcblk.F90

    r9598 r9656  
    535535      ! 
    536536#if defined key_si3 
    537       qns_oce(:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:)                                ! non solar without emp (only needed by LIM3) 
     537      qns_oce(:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:)                                ! non solar without emp (only needed by SI3) 
    538538      qsr_oce(:,:) = qsr(:,:) 
    539539#endif 
     
    834834      REAL(wp), DIMENSION(jpi,jpj,jpl) ::   z_dqlw        ! long wave heat sensitivity over ice 
    835835      REAL(wp), DIMENSION(jpi,jpj,jpl) ::   z_dqsb        ! sensible  heat sensitivity over ice 
    836       REAL(wp), DIMENSION(jpi,jpj)     ::   zevap, zsnw   ! evaporation and snw distribution after wind blowing (LIM3) 
     836      REAL(wp), DIMENSION(jpi,jpj)     ::   zevap, zsnw   ! evaporation and snw distribution after wind blowing (SI3) 
    837837      REAL(wp), DIMENSION(jpi,jpj)     ::   zrhoa 
    838838      !!--------------------------------------------------------------------- 
  • NEMO/trunk/src/OCE/SBC/sbcflx.F90

    r9598 r9656  
    7171      !!              - emp         upward mass flux (evap. - precip.) 
    7272      !!              - sfx         salt flux; set to zero at nit000 but possibly non-zero 
    73       !!                            if ice is present (computed in limsbc(_2).F90) 
     73      !!                            if ice is present 
    7474      !!---------------------------------------------------------------------- 
    7575      INTEGER, INTENT(in) ::   kt   ! ocean time step 
     
    120120         CALL fld_fill( sf, slf_i, cn_dir, 'sbc_flx', 'flux formulation for ocean surface boundary condition', 'namsbc_flx' ) 
    121121         ! 
    122          sfx(:,:) = 0.0_wp                         ! salt flux due to freezing/melting (non-zero only if ice is present; set in limsbc(_2).F90) 
     122         sfx(:,:) = 0.0_wp                         ! salt flux due to freezing/melting (non-zero only if ice is present) 
    123123         ! 
    124124      ENDIF 
  • NEMO/trunk/src/OCE/SBC/sbcmod.F90

    r9654 r9656  
    3434   USE sbcice_if      ! surface boundary condition: ice-if sea-ice model 
    3535#if defined key_si3 
    36    USE icestp         ! surface boundary condition: LIM 3.0 sea-ice model 
     36   USE icestp         ! surface boundary condition: SI3 sea-ice model 
    3737#endif 
    38    USE sbcice_cice    ! surface boundary condition: CICE    sea-ice model 
     38   USE sbcice_cice    ! surface boundary condition: CICE sea-ice model 
    3939   USE sbcisf         ! surface boundary condition: ice-shelf 
    4040   USE sbccpl         ! surface boundary condition: coupled formulation 
     
    216216      CASE( 0 )                        !- no ice in the domain 
    217217      CASE( 1 )                        !- Ice-cover climatology ("Ice-if" model)   
    218       CASE( 2 )                        !- LIM3 ice model 
     218      CASE( 2 )                        !- SI3 ice model 
    219219      CASE( 3 )                        !- CICE ice model 
    220220         IF( .NOT.( ln_blk .OR. ln_cpl ) )   CALL ctl_stop( 'sbc_init : CICE sea-ice model requires ln_blk or ln_cpl = T' ) 
     
    427427      CASE(  1 )   ;         CALL sbc_ice_if   ( kt )             ! Ice-cover climatology ("Ice-if" model) 
    428428#if defined key_si3 
    429       CASE(  2 )   ;         CALL ice_stp  ( kt, nsbc )           ! LIM-3 ice model 
     429      CASE(  2 )   ;         CALL ice_stp  ( kt, nsbc )           ! SI3 ice model 
    430430#endif 
    431431      CASE(  3 )   ;         CALL sbc_ice_cice ( kt, nsbc )       ! CICE ice model 
  • NEMO/trunk/src/OCE/nemogcm.F90

    r9611 r9656  
    1313   !!                             P. Delecluse, L.Terray, M.A. Filiberti, J. Vialar, A.M. Treguier, M. Levy) release 8.0 
    1414   !!            8.1  ! 1997-06  (M. Imbard, G. Madec) 
    15    !!            8.2  ! 1999-11  (M. Imbard, H. Goosse)  LIM sea-ice model 
     15   !!            8.2  ! 1999-11  (M. Imbard, H. Goosse)  sea-ice model 
    1616   !!                 ! 1999-12  (V. Thierry, A-M. Treguier, M. Imbard, M-A. Foujols)  OPEN-MP 
    1717   !!                 ! 2000-07  (J-M Molines, M. Imbard)  Open Boundary Conditions  (CLIPPER) 
Note: See TracChangeset for help on using the changeset viewer.