Changeset 14891

Timestamp:

2021-05-20T15:48:51+02:00 (3 years ago)

Author:

dguibert

Message:

add lbc_lnk_pt2pt_async

Introduce a new pt2pt scheme allowing to overlap communication and computation
by

1. calling irecv
2. compute on whole domain using a dummy subroutine
3. calling isend

... usual unpack

Location:

NEMO/branches/2021/dev_r14447_HPC-07_Irrmann_try_new_pt2pt/src/OCE/LBC

Files:

• lbc_lnk_pt2pt_async.h90 (added)
• lbclnk.F90 (modified) (4 diffs)

NEMO/branches/2021/dev_r14447_HPC-07_Irrmann_try_new_pt2pt/src/OCE/LBC/lbclnk.F90

@@ -46 +46 @@
       MODULE PROCEDURE   lbc_lnk_oldpt2pt_sp, lbc_lnk_oldpt2pt_dp
    END INTERFACE lbc_lnk_oldpt2pt
-   
+
    INTERFACE lbc_lnk_neicoll
       MODULE PROCEDURE   lbc_lnk_neicoll_sp ,lbc_lnk_neicoll_dp
@@ -63 +63 @@
 
    REAL(dp), DIMENSION(:), ALLOCATABLE ::   buffsnd_dp, buffrcv_dp   ! MPI send/recv buffers
-   REAL(sp), DIMENSION(:), ALLOCATABLE ::   buffsnd_sp, buffrcv_sp   ! 
+   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"
@@ -150 +150 @@
 #  include "lbc_lnk_neicoll_generic.h90"
 #  include "lbc_lnk_persistent.h90"
+#  include "lbc_lnk_pt2pt_async.h90"
 #  undef MPI_TYPE
 #  undef BUFFSND
@@ -166 +167 @@
 #  include "lbc_lnk_neicoll_generic.h90"
 #  include "lbc_lnk_persistent.h90"
+#  include "lbc_lnk_pt2pt_async.h90"
 #  undef MPI_TYPE
 #  undef BUFFSND