Changeset 10013 for NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/OCE/DYN/dynzad.F90

Timestamp:

2018-07-30T12:24:36+02:00 (6 years ago)

Author:

davestorkey

Message:

UKMO dev_r9950_GO6_mixing branch : update to be relative to rev 10011 of NEMO4_beta_mirror branch.

File:

• NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/OCE/DYN/dynzad.F90 (modified) (1 diff)

NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/OCE/DYN/dynzad.F90

@@ -89 +89 @@
       !
       ! 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
          DO jj = 2, jpjm1