Changeset 10924

Timestamp:

2019-05-03T12:00:23+02:00 (5 years ago)

Author:

clem

Message:

solve a problem of restartability and reproducibility if ln_cndflx is activated in the ice model (used for coupling at the Met-Office)

File:

• NEMO/trunk/src/ICE/icethd_zdf_bl99.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icethd_zdf_bl99.F90

@@ -742 +742 @@
                   zdti_max = MAX ( zdti_max , MAXVAL( ABS( t_s_1d(ji,1:nlay_s) - ztsb(ji,1:nlay_s) ) ) )
                   ! t_i
-                  DO jk = 0, nlay_i
+                  DO jk = 1, nlay_i
                      ztmelts       = -rTmlt * sz_i_1d(ji,jk) + rt0 
                      t_i_1d(ji,jk) =  MAX( MIN( t_i_1d(ji,jk), ztmelts ), rt0 - 100._wp )