Changeset 5055 for branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

Timestamp:

2015-02-04T11:10:53+01:00 (9 years ago)

Author:

clem

Message:

LIM3: removing par_ice and put jpl, nlay_i and nlay_s as namelist parameters

File:

• branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/ice.F90 (modified) (2 diffs)

branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

@@ -11 +11 @@
    !!   'key_lim3'                                      LIM-3 sea-ice model
    !!----------------------------------------------------------------------
-   USE par_ice        ! LIM sea-ice parameters
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
@@ -366 +365 @@
    !!--------------------------------------------------------------------------
    !                                                  !!: ** Namelist namicerun read in sbc_lim_init **
-!clem   INTEGER               , PUBLIC ::   jpl             !: number of ice  categories 
-!clem   INTEGER               , PUBLIC ::   nlay_i          !: number of ice  layers 
-!clem   INTEGER               , PUBLIC ::   nlay_s          !: number of snow layers 
+   INTEGER               , PUBLIC ::   jpl             !: number of ice  categories 
+   INTEGER               , PUBLIC ::   nlay_i          !: number of ice  layers 
+   INTEGER               , PUBLIC ::   nlay_s          !: number of snow layers 
    CHARACTER(len=32)     , PUBLIC ::   cn_icerst_in    !: suffix of ice restart name (input)
    CHARACTER(len=32)     , PUBLIC ::   cn_icerst_out   !: suffix of ice restart name (output)