Changeset 5907

Timestamp:

2015-11-23T12:23:05+01:00 (8 years ago)

Author:

jchanut

Message:

Move lbclk else unreproductible results with ln_dynvor_een=T and ln_dynvor_msk=T

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

@@ -547 +547 @@
          END SELECT
          !
+         IF( ln_dynvor_msk ) THEN          !==  mask/unmask vorticity ==!
+            DO jj = 1, jpjm1
+               DO ji = 1, fs_jpim1   ! vector opt.
+                  zwz(ji,jj) = zwz(ji,jj) * fmask(ji,jj,jk)
+               END DO
+            END DO
+         ENDIF
+         !
          CALL lbc_lnk( zwz, 'F', 1. )
-         !
-         IF( ln_dynvor_msk ) THEN          !==  mask/unmask vorticity ==!
-            DO jj = 1, jpjm1
-               DO ji = 1, fs_jpim1   ! vector opt.
-                  zwz(ji,jj) = zwz(ji,jj) * fmask(ji,jj,jk)
-               END DO
-            END DO
-         ENDIF
          !
          !                                   !==  horizontal fluxes  ==!