Changeset 13630 for NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/dommsk.F90

Timestamp:

2020-10-19T10:48:19+02:00 (4 years ago)

Author:

mocavero

Message:

Add neighborhood collectives calls in the NEMO src - ticket #2496

File:

• NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/dommsk.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/dommsk.F90

@@ -141 +141 @@
       ! the following call is mandatory
       ! it masks boundaries (bathy=0) where needed depending on the configuration (closed, periodic...)  
+#if defined key_mpi3
+      CALL lbc_lnk_nc_multi( 'dommsk', tmask  , 'T', 1._wp )      ! Lateral boundary conditions
+#else
       CALL lbc_lnk( 'dommsk', tmask  , 'T', 1._wp )      ! Lateral boundary conditions
+#endif
 
      ! Mask corrections for bdy (read in mppini2)
@@ -173 +177 @@
          END DO
       END DO
+#if defined key_mpi3
+      CALL lbc_lnk_nc_multi( 'dommsk', umask, 'U', 1., vmask, 'V', 1., fmask, 'F', 1. )      ! Lateral boundary conditions
+#else
       CALL lbc_lnk_multi( 'dommsk', umask, 'U', 1., vmask, 'V', 1., fmask, 'F', 1. )      ! Lateral boundary conditions
+#endif
  
       ! Ocean/land mask at wu-, wv- and w points    (computed from tmask)
@@ -198 +206 @@
             &                   tmask(ji,jj  ,1), tmask(ji+1,jj  ,1)   )
       END_2D
+#if defined key_mpi3
+      CALL lbc_lnk_nc_multi( 'dommsk', ssfmask, 'F', 1._wp )   
+#else
       CALL lbc_lnk( 'dommsk', ssfmask, 'F', 1._wp )   
+#endif
 
 !!an
@@ -279 +291 @@
          DEALLOCATE( zwf )
          !
+#if defined key_mpi3
+         CALL lbc_lnk_nc_multi( 'dommsk', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask
+#else
          CALL lbc_lnk( 'dommsk', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask
+#endif
          !
          ! CAUTION : The fmask may be further modified in dyn_vor_init ( dynvor.F90 ) depending on ln_vorlat