Changeset 9396 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_ent.F90

Timestamp:

2018-03-14T11:59:19+01:00 (6 years ago)

Author:

clem

Message:

dev_ICEMODEL: make the branche reproducible

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_ent.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_ent.F90

@@ -103 +103 @@
       END DO
 
-      zeh_cum1(1:npti,0) = 0._wp 
+      zeh_cum1(1:npti,0:nlay_i) = 0._wp 
       ! new cumulative q*h => linear interpolation
       DO jk0 = 1, nlay_i+1