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/limitd_th.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/limitd_th.F90

    r2477 r2528  
    11MODULE limitd_th 
    2 #if defined key_lim3 
    3    !!---------------------------------------------------------------------- 
    4    !!   'key_lim3' :                                   LIM3 sea-ice model 
    5    !!---------------------------------------------------------------------- 
    62   !!====================================================================== 
    73   !!                       ***  MODULE limitd_th *** 
    … …  
    95   !!                   computation of changes in g(h)       
    106   !!====================================================================== 
    11  
     7#if defined key_lim3 
    128   !!---------------------------------------------------------------------- 
    13    !! * Modules used 
     9   !!   'key_lim3' :                                   LIM3 sea-ice model 
     10   !!---------------------------------------------------------------------- 
     11   !!---------------------------------------------------------------------- 
    1412   USE dom_ice 
    1513   USE par_oce          ! ocean parameters 
    … …  
    1715   USE phycst           ! physical constants (ocean directory)  
    1816   USE thd_ice 
    19    USE in_out_manager 
    2017   USE ice 
    2118   USE par_ice 
    … …  
    2421   USE limcons 
    2522   USE prtctl           ! Print control 
     23   USE in_out_manager 
    2624   USE lib_mpp  
    2725 
    … …  
    2927   PRIVATE 
    3028 
    31    !! * Routine accessibility 
    3229   PUBLIC lim_itd_th        ! called by ice_stp 
    3330   PUBLIC lim_itd_th_rem 
    … …  
    3633   PUBLIC lim_itd_shiftice 
    3734 
    38    !! * Module variables 
    3935   REAL(wp)  ::           &  ! constant values 
    4036      epsi20 = 1e-20   ,  & 
    … …  
    4440 
    4541   !!---------------------------------------------------------------------- 
    46    !!   LIM 3.0,  UCL-LOCEAN-IPSL (2008) 
     42   !! NEMO/LIM3 3.3 , UCL - NEMO Consortium (2010) 
    4743   !! $Id$ 
    48    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     44   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    4945   !!---------------------------------------------------------------------- 
    5046 
Note: See TracChangeset for help on using the changeset viewer.