Changeset 15020 for NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/DOM/domain.F90

Timestamp:

2021-06-18T15:21:42+02:00 (3 years ago)

Author:

gsamson

Message:

merge trunk into branch (#2680)

File:

• NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/DOM/domain.F90 (modified) (1 diff)

NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/DOM/domain.F90

@@ -148 +148 @@
       END DO
       !
-      DO jk = 1, jpkm1
-         hf_0(1:jpim1,:) = hf_0(1:jpim1,:) + e3f_0(1:jpim1,:,jk)*vmask(1:jpim1,:,jk)*vmask(2:jpi,:,jk)
-      END DO
+      DO_3D( 0, 0, 0, 0, 1, jpkm1 )
+         hf_0(ji,jj) = hf_0(ji,jj) + e3f_0(ji,jj,jk)*vmask(ji,jj,jk)*vmask(ji+1,jj,jk)
+      END_3D
       CALL lbc_lnk('domain', hf_0, 'F', 1._wp)
       !