Changeset 1228 for trunk/NEMO/LIM_SRC_2/ice_2.F90

Timestamp:

2008-12-01T07:56:13+01:00 (16 years ago)

Author:

smasson

Message:

cleanning related to lim2 namelist, prepare changeset: 1229, see ticket:258

File:

• trunk/NEMO/LIM_SRC_2/ice_2.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_2/ice_2.F90

@@ -20 +20 @@
    PRIVATE
 
+   !!* Share parameters namelist (namicerun read in iceini) *
+   LOGICAL               , PUBLIC ::   ln_limdyn     = .TRUE.             !: flag for ice dynamics (T) or not (F)
+   LOGICAL               , PUBLIC ::   ln_limdmp     = .FALSE.            !: Ice damping
+   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), DIMENSION(2), PUBLIC ::   acrit = (/ 1.e-06 , 1.e-06 /)      !: minimum fraction for leads in 
+   !                                                                      !: north and south hemisphere
    !!* ice-dynamic namelist (namicedyn) *
    INTEGER , PUBLIC ::   nbiter = 1         !: number of sub-time steps for relaxation