Changeset 7525 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

Timestamp:

2017-01-04T17:47:47+01:00 (7 years ago)

Author:

mocavero

Message:

changes after review

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (1 diff)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -900 +900 @@
       !                               !* set vertical eddy coef. to the background value
 !$OMP PARALLEL
-!$OMP DO schedule(static) private(jk)
+!$OMP DO schedule(static) private(jk,jj,ji)
       DO jk = 1, jpk
-         avt (:,:,jk) = avtb(jk) * wmask (:,:,jk)
-         avm (:,:,jk) = avmb(jk) * wmask (:,:,jk)
-         avmu(:,:,jk) = avmb(jk) * wumask(:,:,jk)
-         avmv(:,:,jk) = avmb(jk) * wvmask(:,:,jk)
+         DO jj = 1, jpj
+            DO ji = 1, jpi
+               avt (ji,jj,jk) = avtb(jk) * wmask (ji,jj,jk)
+               avm (ji,jj,jk) = avmb(jk) * wmask (ji,jj,jk)
+               avmu(ji,jj,jk) = avmb(jk) * wumask(ji,jj,jk)
+               avmv(ji,jj,jk) = avmb(jk) * wvmask(ji,jj,jk)
+            END DO
+         END DO
       END DO
 !$OMP END DO NOWAIT