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

Timestamp:

2017-09-25T21:11:19+02:00 (7 years ago)

Author:

clem

Message:

cosmetics only

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_ent.F90 (modified) (4 diffs)

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

@@ -78 +78 @@
       !  1) Cumulative integral of old enthalpy * thickness and layers interfaces
       !--------------------------------------------------------------------------
-      zeh_cum0(:,0:nlay_i+2) = 0._wp 
-      zh_cum0 (:,0:nlay_i+2) = 0._wp
+      zeh_cum0(1:nidx,0) = 0._wp 
+      zh_cum0 (1:nidx,0) = 0._wp
       DO jk0 = 1, nlay_i+2
          DO ji = 1, nidx
@@ -96 +96 @@
 
       ! new layers interfaces
-      zh_cum1(:,0:nlay_i) = 0._wp
+      zh_cum1(1:nidx,0) = 0._wp
       DO jk1 = 1, nlay_i
          DO ji = 1, nidx
@@ -103 +103 @@
       END DO
 
-      zeh_cum1(:,0:nlay_i) = 0._wp 
+      zeh_cum1(1:nidx,0) = 0._wp 
       ! new cumulative q*h => linear interpolation
       DO jk0 = 1, nlay_i+1
@@ -117 +117 @@
       END DO
       ! to ensure that total heat content is strictly conserved, set:
-      zeh_cum1(:,nlay_i) = zeh_cum0(:,nlay_i+2) 
+      zeh_cum1(1:nidx,nlay_i) = zeh_cum0(1:nidx,nlay_i+2) 
 
       ! new enthalpies