Changeset 9396

Timestamp:

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

Author:

clem

Message:

dev_ICEMODEL: make the branche reproducible

Location:

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3

Files:

• iceitd.F90 (modified) (1 diff)
• icethd_ent.F90 (modified) (1 diff)

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

@@ -117 +117 @@
             ! Compute thickness change in each ice category
             DO ji = 1, npti
-               zdhice(ji,jl) = h_i_2d(ji,jl) - h_ib_2d(ji,jl)
+               IF( a_i_2d(ji,jl) >  epsi10) zdhice(ji,jl) = h_i_2d(ji,jl) - h_ib_2d(ji,jl)
             END DO
          END DO

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