Changeset 11210 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdydyn3d.F90

Timestamp:

2019-07-03T12:08:42+02:00 (5 years ago)

Author:

girrmann

Message:

dev_r10984_HPC-13 : remove some communications in bdy treatment in case nn_hls > 1, see #2285

File:

• NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdydyn3d.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdydyn3d.F90

@@ -47 +47 @@
 
       !!----------------------------------------------------------------------
+      llsend2(:) = .false.   ;   llrecv2(:) = .false.
+      llsend3(:) = .false.   ;   llrecv3(:) = .false.
       DO ir = 1, 0, -1   ! treat rim 1 before rim 0
          IF( ir == 0 ) THEN   ;   llrim0 = .TRUE.
@@ -69 +71 @@
          END DO
          !
-         llsend2(:) = .false.
-         llrecv2(:) = .false.
-         llsend3(:) = .false.
-         llrecv3(:) = .false.
+         IF( nn_hls > 1 .AND. ir == 1 ) CYCLE   ! at least 2 halos will be corrected -> no need to correct rim 1 before rim 0
+         IF( nn_hls == 1 ) THEN
+            llsend2(:) = .false.   ;   llrecv2(:) = .false.
+            llsend3(:) = .false.   ;   llrecv3(:) = .false.
+         END IF
          DO ib_bdy=1, nb_bdy
             SELECT CASE( cn_dyn3d(ib_bdy) )