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

Timestamp:

2020-07-02T17:33:41+02:00 (4 years ago)

Author:

francesca

Message:

dev_r12558_HPC-08_epico_Extra_Halo: merge with trunk@13218, see #2366

File:

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

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
          !
@@ -206 +207 @@
          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 
+            IF( lk_west ) THEN
+               DO ji = mi0(2+nn_hls), mi1(2+nn_hls)
+                  DO jj = 1, jpj
+                     pww(ji,jj,jk) = 0._wp 
+                  END DO
                END DO
-            END DO
+            ENDIF
             !
             ! --- East --- !
-            DO ji = mi0(jpiglo-1-nn_hls), mi1(jpiglo-1-nn_hls)
-               DO jj = 1, jpj
-                  pww(ji,jj,jk) = 0._wp
+            IF( lk_east ) THEN
+               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
-            END DO
+            ENDIF
             !
             ! --- South --- !
-            DO jj = mj0(2+nn_hls), mj1(2+nn_hls)
-               DO ji = 1, jpi
-                  pww(ji,jj,jk) = 0._wp
+            IF( lk_south ) THEN
+               DO jj = mj0(2+nn_hls), mj1(2+nn_hls)
+                  DO ji = 1, jpi
+                     pww(ji,jj,jk) = 0._wp
+                  END DO
                END DO
-            END DO
+            ENDIF
             !
             ! --- North --- !
-            DO jj = mj0(jpjglo-1-nn_hls), mj1(jpjglo-1-nn_hls)
-               DO ji = 1, jpi
-                  pww(ji,jj,jk) = 0._wp
+            IF( lk_north ) THEN
+               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
          END DO
          !
       ENDIF 
+#endif
       !
       IF( ln_timing )   CALL timing_stop('wzv')