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 2475 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90 – NEMO

Ignore:
Timestamp:
2010-12-17T07:45:43+01:00 (14 years ago)
Author:
gm
Message:

v3.3beta: #633 LIM-3 correct the hard coded num_sal in limrst + symmetric changes in LIM-2

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90

    r2287 r2475  
    11MODULE limthd_ent 
    2 #if defined key_lim3 
    3    !!---------------------------------------------------------------------- 
    4    !!   'key_lim3'                                      LIM3 sea-ice model 
    5    !!---------------------------------------------------------------------- 
    62   !!====================================================================== 
    73   !!                       ***  MODULE limthd_ent   *** 
    … …  
    106   !!                       after vertical growth/decay 
    117   !!====================================================================== 
     8#if defined key_lim3 
     9   !!---------------------------------------------------------------------- 
     10   !!   'key_lim3'                                      LIM3 sea-ice model 
     11   !!---------------------------------------------------------------------- 
    1212   !!   lim_thd_ent : ice redistribution of enthalpy 
    13  
    14    !! * Modules used 
     13   !!---------------------------------------------------------------------- 
    1514   USE par_oce          ! ocean parameters 
    1615   USE dom_oce 
    … …  
    1918   USE phycst 
    2019   USE thd_ice 
    21    USE iceini 
    22    USE limistate 
    2320   USE ice 
    2421   USE limvar 
    … …  
    2926   PRIVATE 
    3027 
    31    !! * Routine accessibility 
    32    PUBLIC  lim_thd_ent     ! called by lim_thd 
    33  
    34    !! * Module variables 
     28   PUBLIC   lim_thd_ent     ! called by lim_thd 
     29 
    3530   REAL(wp)  ::           &  ! constant values 
    3631      epsi20 = 1.e-20  ,  & 
    … …  
    3934      zone   = 1.e0    ,  & 
    4035      epsi10 = 1.0e-10 
    41  
    4236   !!---------------------------------------------------------------------- 
    4337   !! NEMO/LIM3 3.3 , UCL - NEMO Consortium (2010) 
    4438   !! $Id$ 
    45    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     39   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4640   !!---------------------------------------------------------------------- 
    47  
    4841CONTAINS 
    4942 
Note: See TracChangeset for help on using the changeset viewer.