Changeset 1229 for trunk/NEMO/LIM_SRC_3/ice.F90

Timestamp:

2008-12-01T08:04:11+01:00 (15 years ago)

Author:

smasson

Message:

define restart names in the namelist, see ticket:258

File:

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

trunk/NEMO/LIM_SRC_3/ice.F90

@@ -480 +480 @@
    !!--------------------------------------------------------------------------
    !! Namelist namicerun read in iceini
-   LOGICAL , PUBLIC  ::     & !!! ** init namelist (namicerun) **
-      ln_limdyn   = .TRUE., & !: flag for ice dynamics (T) or not (F)
-      ln_nicep    = .TRUE.    !: flag for sea-ice points output (T) or not (F)
-   REAL(wp), PUBLIC  ::   &  !:
-      hsndif = 0.e0    ,  &  !: computation of temp. in snow (0) or not (9999)
-      hicdif = 0.e0    ,  &  !: computation of temp. in ice (0) or not (9999)
-      cai    = 1.40e-3 ,  &  !: atmospheric drag over sea ice
-      cao    = 1.00e-3       !: atmospheric drag over ocean
-   REAL(wp), PUBLIC, DIMENSION(2)  ::  &  !:
-      acrit  = (/ 1.e-06 , 1.e-06 /)    !: minimum fraction for leads in
-   !                                   !  north and south hemisphere
-
+   CHARACTER(len=32)     , PUBLIC ::   cn_icerst_in  = "restart_ice_in"   !: suffix of ice restart name (input)
+   CHARACTER(len=32)     , PUBLIC ::   cn_icerst_out = "restart_ice"      !: suffix of ice restart name (output)
+   LOGICAL               , PUBLIC ::   ln_limdyn     = .TRUE.             !: flag for ice dynamics (T) or not (F)
+   LOGICAL               , PUBLIC ::   ln_nicep      = .TRUE.             !: flag for sea-ice points output (T) or not (F)
+   REAL(wp)              , PUBLIC ::   hsndif        = 0.e0               !: computation of temp. in snow (0) or not (9999)
+   REAL(wp)              , PUBLIC ::   hicdif        = 0.e0               !: computation of temp. in ice (0) or not (9999)
+   REAL(wp)              , PUBLIC ::   cai           = 1.40e-3            !: atmospheric drag over sea ice
+   REAL(wp)              , PUBLIC ::   cao           = 1.00e-3            !: atmospheric drag over ocean
+   REAL(wp), DIMENSION(2), PUBLIC ::   acrit  = (/ 1.e-06 , 1.e-06 /)     !: minimum fraction for leads in
+   !                                                                      !: north and south hemisphere
    !!--------------------------------------------------------------------------
    !! * Ice diagnostics