Changeset 3111 for branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM

Timestamp:

2011-11-15T15:14:38+01:00 (13 years ago)

Author:

flavoni

Message:

add missing loop in jk, in dynvor.F90

File:

• branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90 (modified) (1 diff)

branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

@@ -714 +714 @@
       ! at angles with three ocean points and one land point
       IF( ln_vorlat .AND. (ln_dynvor_ene .OR. ln_dynvor_ens .OR. ln_dynvor_mix) ) THEN
-          DO jj = 2, jpjm1
-            DO ji = 2, jpim1
-               IF( tmask(ji,jj,jk)+tmask(ji+1,jj,jk)+tmask(ji,jj+1,jk)+tmask(ji+1,jj+1,jk) == 3._wp ) &
-                   fmask(ji,jj,jk) = 1._wp
-            END DO
-          END DO
+         DO jk = 1, jpk
+            DO jj = 2, jpjm1
+               DO ji = 2, jpim1
+                  IF( tmask(ji,jj,jk)+tmask(ji+1,jj,jk)+tmask(ji,jj+1,jk)+tmask(ji+1,jj+1,jk) == 3._wp ) &
+                      fmask(ji,jj,jk) = 1._wp
+               END DO
+            END DO
+         END DO
           !
           CALL lbc_lnk( fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask