Changeset 862 for trunk/NEMO/LIM_SRC_3/iceini.F90

Timestamp:

2008-03-14T12:23:26+01:00 (16 years ago)

Author:

ctlod

Message:

To ensure the restartability, see ticket:#82

File:

• trunk/NEMO/LIM_SRC_3/iceini.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_3/iceini.F90

@@ -240 +240 @@
       END DO
 
-      DO jl = 1, jpl
-         hi_mean(jl) = ( hi_max(jl) + hi_max(jl-1) ) / 2.0
-      END DO
-
-      ! Tricky trick 
+      !- Fill in the hi_max_typ vector, useful in other circumstances
+      ! Tricky trick
       ! hi_max_typ is actually not used in the code and will be removed in a
-      ! next flyspray
-      ! at this time, the tricky trick will also be removed
+      ! next flyspray at this time, the tricky trick will also be removed
       ! Martin, march 08
-      hi_max(jpl) = 999.99
-
-      !- Fill in the hi_max_typ vector, useful in other circumstances
       DO jl = ice_cat_bounds(1,1), ice_cat_bounds(1,2)
          hi_max_typ(jl,1) = hi_max(jl)
@@ -265 +258 @@
       END DO
 
+      DO jl = 1, jpl
+         hi_mean(jl) = ( hi_max(jl) + hi_max(jl-1) ) / 2.0
+      END DO
+
       tn_ice(:,:,:) = t_su(:,:,:)