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 1234 for trunk/NEMO/LIM_SRC_2/par_ice_2.F90 – NEMO

Ignore:
Timestamp:
2008-12-29T17:37:02+01:00 (15 years ago)
Author:
rblod
Message:

Fix control print problem, see ticket #289

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_2/par_ice_2.F90

    r1156 r1234  
    11MODULE par_ice_2 
    2 #if defined key_lim2 
    32   !!====================================================================== 
    43   !!                       ***  MODULE par_ice_2   *** 
    54   !! Sea-Ice model : definition of the parameters 
    65   !!====================================================================== 
     6#if defined key_lim2 
    77   !!---------------------------------------------------------------------- 
    8    !!  LIM 2.0, UCL-LOCEAN-IPSL (2005) 
    9    !! $Id$ 
    10    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
     8   !!  'key_lim2'                                       LIM-2 sea-ice model 
    119   !!---------------------------------------------------------------------- 
    12    !! * Modules used 
    1310   USE par_oce 
    1411 
    … …  
    1613   PUBLIC               ! allows par_oce and par_kind to be known in ice modules 
    1714 
    18    INTEGER, PUBLIC, PARAMETER ::   &  !: 
    19       jpkmax =  1    ,      &  !: ??? 
    20       jpsmax = 2              !: ??? 
     15   INTEGER, PUBLIC, PARAMETER ::   jpl        = 1              !: number of ice categories (only 1 in LIM-2) 
     16   INTEGER, PUBLIC, PARAMETER ::   jpkmax     = 1              !: ??? 
     17   INTEGER, PUBLIC, PARAMETER ::   jpsmax     = 2              !: ??? 
    2118 
    22    INTEGER, PUBLIC, PARAMETER ::   &  !:  
    23       jplayers   = 2 ,           &  !: number of vertical ice layers 
    24       jplayersp1 = jplayers + 1     !: ??? 
     19   INTEGER, PUBLIC, PARAMETER ::   jplayers   = 2              !: number of vertical ice layers 
     20   INTEGER, PUBLIC, PARAMETER ::   jplayersp1 = jplayers + 1   !: ??? 
    2521 
     22#else 
     23   !!---------------------------------------------------------------------- 
     24   !!  Default option                                No LIM-2 sea-ice model 
     25   !!---------------------------------------------------------------------- 
     26#endif 
     27   !!---------------------------------------------------------------------- 
     28   !! NEMO/LIM 2.0, UCL-LOCEAN-IPSL (2008) 
     29   !! $Id$ 
     30   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    2631   !!====================================================================== 
    27 #endif 
    2832END MODULE par_ice_2 
Note: See TracChangeset for help on using the changeset viewer.