Changeset 1608 for trunk/NEMO/LIM_SRC_3/par_ice.F90

Timestamp:

2009-08-12T10:05:30+02:00 (15 years ago)

Author:

ctlod

Message:

nemo 3.1 LIM3 : remove useless akappa and alambd arrays, plus small cosmetic, see ticket: #400

File:

• trunk/NEMO/LIM_SRC_3/par_ice.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_3/par_ice.F90

@@ -2 +2 @@
    !!======================================================================
    !!                       ***  MODULE par_ice   ***
-   !! Sea-Ice model : definition of the parameters
+   !! LIM-3 Sea Ice :   definition of parameters
    !!======================================================================
+   !! History :  3.0  ! 2003-08  (M. Vancoppenolle)  LIM-3
    !!----------------------------------------------------------------------
-   !!  LIM 3.0, UCL-LOCEAN-IPSL (2008)
-   !! $Id$
-   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
-   !!----------------------------------------------------------------------
-   !! * Modules used
    USE par_oce
 
    IMPLICIT NONE
-   PUBLIC               ! allows par_oce and par_kind to be known in ice modules
+   PUBLIC          
 
-   !ICE THERMODYNAMICS
-   INTEGER , PARAMETER ::      &  !:
-      jkmax    = 6 ,           &  !: maximum number of ice layers
-      nlay_s   = 1                !: number of snow layers
+   !                                             !!! ice thermodynamics
+   INTEGER, PUBLIC, PARAMETER ::   jkmax    = 6   !: maximum number of ice layers
+   INTEGER, PUBLIC, PARAMETER ::   nlay_s   = 1   !: number of snow layers
 
-   !ICE MECHANICAL REDISTRIBUTION
-   INTEGER , PARAMETER ::      &  !:
-      jpl      = 5,            &  !: number of ice categories
-      jpm      = 1                !: number of ice types
+   !                                             !!! ice mechanical redistribution
+   INTEGER, PUBLIC, PARAMETER ::   jpl      = 5   !: number of ice categories
+   INTEGER, PUBLIC, PARAMETER ::   jpm      = 1   !: number of ice types
 
+   !!----------------------------------------------------------------------
+   !! NEMO/LIM 3.2, UCL-ASTR-LOCEAN-IPSL (2009)
+   !! $Id$
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!======================================================================
 END MODULE par_ice