Changeset 14367 for NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/LBC/lbclnk.F90

Timestamp:

2021-02-02T08:51:42+01:00 (3 years ago)

Author:

smasson

Message:

dev_r14312_MPI_Interface: keep send/recv buffers in memory if smaller than jpi*jpj, #2598

File:

• NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/LBC/lbclnk.F90 (modified) (3 diffs)

NEMO/branches/2021/dev_r14312_MPI_Interface/src/OCE/LBC/lbclnk.F90

@@ -50 +50 @@
    PUBLIC   lbc_lnk_icb        ! iceberg lateral boundary conditions
 
+   REAL(dp), DIMENSION(:), ALLOCATABLE ::   buffsnd_dp, buffrcv_dp   ! MPI send/recv buffers
+   REAL(sp), DIMENSION(:), ALLOCATABLE ::   buffsnd_sp, buffrcv_sp   ! 
+   INTEGER,  DIMENSION(8)              ::   nreq_p2p                 ! request id for MPI_Isend in point-2-point communication
+   
    !! * Substitutions
    !!#  include "do_loop_substitute.h90"
@@ -126 +130 @@
 #define PRECISION sp
 #  define MPI_TYPE MPI_REAL
+#  define BUFFSND buffsnd_sp
+#  define BUFFRCV buffrcv_sp
 #  include "lbc_lnk_pt2pt_generic.h90"
 #  include "lbc_lnk_neicoll_generic.h90"
 #  undef MPI_TYPE
+#  undef BUFFSND
+#  undef BUFFRCV
 #undef PRECISION
    !!
@@ -135 +143 @@
 #define PRECISION dp
 #  define MPI_TYPE MPI_DOUBLE_PRECISION
+#  define BUFFSND buffsnd_dp
+#  define BUFFRCV buffrcv_dp
 #  include "lbc_lnk_pt2pt_generic.h90"
 #  include "lbc_lnk_neicoll_generic.h90"
 #  undef MPI_TYPE
+#  undef BUFFSND
+#  undef BUFFRCV
 #undef PRECISION