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 2528 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90 – NEMO

Ignore:
Timestamp:
2010-12-27T18:33:53+01:00 (13 years ago)
Author:
rblod
Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90

    r2477 r2528  
    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 
    … …  
    2726   PRIVATE 
    2827 
    29    !! * Routine accessibility 
    30    PUBLIC  lim_thd_ent     ! called by lim_thd 
    31  
    32    !! * Module variables 
     28   PUBLIC   lim_thd_ent     ! called by lim_thd 
     29 
    3330   REAL(wp)  ::           &  ! constant values 
    3431      epsi20 = 1.e-20  ,  & 
    … …  
    3734      zone   = 1.e0    ,  & 
    3835      epsi10 = 1.0e-10 
    39  
    4036   !!---------------------------------------------------------------------- 
    41    !!   LIM 3.0,  UCL-LOCEAN-IPSL (2005) 
     37   !! NEMO/LIM3 3.3 , UCL - NEMO Consortium (2010) 
    4238   !! $Id$ 
    43    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     39   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4440   !!---------------------------------------------------------------------- 
    45  
    4641CONTAINS 
    4742 
Note: See TracChangeset for help on using the changeset viewer.