Changeset 5047 for branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

Timestamp:

2015-01-29T14:13:14+01:00 (9 years ago)

Author:

clem

Message:

LIM3 cleaning (1): namelist

File:

• branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90 (modified) (4 diffs)

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

@@ -241 +241 @@
       !!-------------------------------------------------------------------
       INTEGER  ::   ios                 ! Local integer output status for namelist read
-      NAMELIST/namicedyn/ epsd, om, cw, pstar,   &
+      NAMELIST/namicedyn/ cw, pstar,   &
          &                c_rhg, creepl, ecc, ahi0,     &
-         &                nevp, relast, alphaevp, hminrhg
+         &                nevp, relast, hminrhg
       !!-------------------------------------------------------------------
 
@@ -259 +259 @@
          WRITE(numout,*) 'lim_dyn_init : ice parameters for ice dynamics '
          WRITE(numout,*) '~~~~~~~~~~~~'
-         WRITE(numout,*) '   tolerance parameter                              epsd   = ', epsd
-         WRITE(numout,*) '   relaxation constant                              om     = ', om
          WRITE(numout,*) '   drag coefficient for oceanic stress              cw     = ', cw
          WRITE(numout,*) '   first bulk-rheology parameter                    pstar  = ', pstar
@@ -269 +267 @@
          WRITE(numout,*) '   number of iterations for subcycling              nevp   = ', nevp
          WRITE(numout,*) '   ratio of elastic timescale over ice time step    relast = ', relast
-         WRITE(numout,*) '   coefficient for the solution of int. stresses  alphaevp = ', alphaevp
          WRITE(numout,*) '   min ice thickness for rheology calculations     hminrhg = ', hminrhg
       ENDIF
@@ -275 +272 @@
       usecc2 = 1._wp / ( ecc * ecc )
       rhoco  = rau0  * cw
-
-      ! elastic damping
-      telast = relast * rdt_ice
 
       !  Diffusion coefficients.