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

Timestamp:

2015-02-03T18:11:02+01:00 (9 years ago)

Author:

clem

Message:

LIM3 cleaning continues. No change in the physics besides the introduction of the monocategory sea ice

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

@@ -31 +31 @@
    USE timing          ! Timing
    USE limcons        ! conservation tests
+   USE limvar
 
    IMPLICIT NONE
@@ -75 +76 @@
       CALL wrk_alloc( jpi, jpj, zu_io, zv_io )
       CALL wrk_alloc( jpj, zswitch, zmsk )
+
+      CALL lim_var_agg(1)             ! aggregate ice categories
 
       IF( kt == nit000 )   CALL lim_dyn_init   ! Initialization (first time-step only)
@@ -241 +244 @@
       !!-------------------------------------------------------------------
       INTEGER  ::   ios                 ! Local integer output status for namelist read
-      NAMELIST/namicedyn/ cw, pstar,   &
-         &                c_rhg, creepl, ecc, ahi0,     &
-         &                nevp, relast, hminrhg
+      NAMELIST/namicedyn/ cw, pstar, c_rhg, creepl, ecc, ahi0, nevp, relast
       !!-------------------------------------------------------------------
 
@@ -267 +268 @@
          WRITE(numout,*) '   number of iterations for subcycling              nevp   = ', nevp
          WRITE(numout,*) '   ratio of elastic timescale over ice time step    relast = ', relast
-         WRITE(numout,*) '   min ice thickness for rheology calculations     hminrhg = ', hminrhg
       ENDIF
       !