Changeset 844

Timestamp:

2008-03-12T15:44:49+01:00 (16 years ago)

Author:

ctlod

Message:

To ensure the restartability with LIM 3.0, fix hi_max(jpl) = 999.99 (m)

Location:

trunk/NEMO/LIM_SRC_3

Files:

• iceini.F90 (modified) (2 diffs)
• limitd_th.F90 (modified) (1 diff)

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 
+      ! 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
+      ! 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)
@@ -254 +265 @@
       END DO
 
-      DO jl = 1, jpl
-         hi_mean(jl) = ( hi_max(jl) + hi_max(jl-1) ) / 2.0
-      END DO
-
       tn_ice(:,:,:) = t_su(:,:,:)
 

trunk/NEMO/LIM_SRC_3/limitd_th.F90

@@ -325 +325 @@
 !-----------------------------------------------------------------------------------------------
       !- 4.1 Compute category boundaries
-      hi_max(kubnd) = 999.99
+      ! Tricky trick see iceini.F90
+      ! will be soon removed, CT
+      ! hi_max(kubnd) = 999.99
       zhbnew(:,:,:) = 0.0