Changeset 13138 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DYN/sshwzv.F90

Timestamp:

2020-06-22T11:13:03+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: minor bugfixes and cleaning, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DYN/sshwzv.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DYN/sshwzv.F90

@@ -200 +200 @@
       ENDIF
       !
-#if defined key_agrif 
       IF( .NOT. AGRIF_Root() ) THEN
          !
          ! Mask vertical velocity at first/last columns/row 
          ! inside computational domain (cosmetic) 
-         ! --- West --- !
-         DO ji = mi0(2), mi1(2)
-            DO jj = 1, jpj
-               pww(ji,jj,:) = 0._wp 
-            ENDDO
-         ENDDO
-         !
-         ! --- East --- !
-         DO ji = mi0(jpiglo-1), mi1(jpiglo-1)
-            DO jj = 1, jpj
-               pww(ji,jj,:) = 0._wp
-            ENDDO
-         ENDDO
-         !
-         ! --- South --- !
-         DO jj = mj0(2), mj1(2)
-            DO ji = 1, jpi
-               pww(ji,jj,:) = 0._wp
-            ENDDO
-         ENDDO
-         !
-         ! --- North --- !
-         DO jj = mj0(jpjglo-1), mj1(jpjglo-1)
-            DO ji = 1, jpi
-               pww(ji,jj,:) = 0._wp
-            ENDDO
-         ENDDO
+         DO jk = 1, jpkm1
+            ! --- West --- !
+            DO ji = mi0(2+nn_hls), mi1(2+nn_hls)
+               DO jj = 1, jpj
+                  pww(ji,jj,jk) = 0._wp 
+               END DO
+            END DO
+            !
+            ! --- East --- !
+            DO ji = mi0(jpiglo-1-nn_hls), mi1(jpiglo-1-nn_hls)
+               DO jj = 1, jpj
+                  pww(ji,jj,jk) = 0._wp
+               END DO
+            END DO
+            !
+            ! --- South --- !
+            DO jj = mj0(2+nn_hls), mj1(2+nn_hls)
+               DO ji = 1, jpi
+                  pww(ji,jj,jk) = 0._wp
+               END DO
+            END DO
+            !
+            ! --- North --- !
+            DO jj = mj0(jpjglo-1-nn_hls), mj1(jpjglo-1-nn_hls)
+               DO ji = 1, jpi
+                  pww(ji,jj,jk) = 0._wp
+               END DO
+            END DO
+         END DO
          !
       ENDIF 
-#endif 
       !
       IF( ln_timing )   CALL timing_stop('wzv')