Changeset 9967

Timestamp:

2018-07-18T17:08:52+02:00 (6 years ago)

Author:

mathiot

Message:

fix #2120 in 3.6_STABLE

File:

• NEMO/releases/release-3.6/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90 (modified) (1 diff)

NEMO/releases/release-3.6/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

@@ -97 +97 @@
       !
       ! Surface and bottom advective fluxes set to zero
-      IF ( ln_isfcav ) THEN
-         DO jj = 2, jpjm1
-            DO ji = fs_2, fs_jpim1           ! vector opt.
-               zwuw(ji,jj, 1:miku(ji,jj) ) = 0._wp
-               zwvw(ji,jj, 1:mikv(ji,jj) ) = 0._wp
-               zwuw(ji,jj,jpk) = 0._wp
-               zwvw(ji,jj,jpk) = 0._wp
-            END DO
-         END DO
-      ELSE
-         DO jj = 2, jpjm1        
-            DO ji = fs_2, fs_jpim1           ! vector opt.
-               zwuw(ji,jj, 1 ) = 0._wp
-               zwvw(ji,jj, 1 ) = 0._wp
-               zwuw(ji,jj,jpk) = 0._wp
-               zwvw(ji,jj,jpk) = 0._wp
-            END DO  
-         END DO
-      END IF
+      DO jj = 2, jpjm1        
+         DO ji = fs_2, fs_jpim1           ! vector opt.
+            zwuw(ji,jj, 1 ) = 0._wp
+            zwvw(ji,jj, 1 ) = 0._wp
+            zwuw(ji,jj,jpk) = 0._wp
+            zwvw(ji,jj,jpk) = 0._wp
+         END DO  
+      END DO
 
       DO jk = 1, jpkm1              ! Vertical momentum advection at u- and v-points