Changeset 10136 for NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/lbclnk.F90

Timestamp:

2018-09-17T15:16:43+02:00 (6 years ago)

Author:

dguibert

Message:

bull: async/datatype

Experimental changes to enable/study/bench various mpi "optimisations":

• BULL_ASYNC
• BULL_DATATYPE_VECTOR/SUBARRAY

this has been applied to the nonosc subroutine (only for now).

File:

• NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/lbclnk.F90 (modified) (4 diffs)

NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/lbclnk.F90

@@ -50 +50 @@
    PUBLIC   lbc_lnk_icb   ! iceberg lateral boundary conditions
 
+#ifdef BULL_ASYNC
+   INTERFACE lbc_lnk_async
+      MODULE PROCEDURE   mpp_lnk_2d_async      , mpp_lnk_3d_async      , mpp_lnk_4d_async
+   END INTERFACE
+   INTERFACE lbc_lnk_ptr_async
+      MODULE PROCEDURE   mpp_lnk_2d_ptr_async  , mpp_lnk_3d_ptr_async  , mpp_lnk_4d_ptr_async
+   END INTERFACE
+   INTERFACE lbc_lnk_multi_async
+      MODULE PROCEDURE   lbc_lnk_2d_multi_async, lbc_lnk_3d_multi_async, lbc_lnk_4d_multi_async
+   END INTERFACE
+
+   PUBLIC   lbc_lnk_async       ! ocean/ice  lateral boundary conditions
+   PUBLIC   lbc_lnk_multi_async ! modified ocean/ice lateral boundary conditions
+#endif
+
    PUBLIC   simulated_lbc_lnk
 
@@ -91 +106 @@
       MODULE PROCEDURE   lbc_lnk_2d_multi, lbc_lnk_3d_multi, lbc_lnk_4d_multi
    END INTERFACE
+
    !
    INTERFACE lbc_bdy_lnk
@@ -104 +120 @@
    PUBLIC   lbc_bdy_lnk   ! ocean lateral BDY boundary conditions
    PUBLIC   lbc_lnk_icb   ! iceberg lateral boundary conditions
-   
+  
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
@@ -327 +343 @@
 #     undef ROUTINE_LOAD
 #  undef DIM_4d
+
+#ifdef BULL_ASYNC
+#define ASYNC
+#  define DIM_2d
+#     define ROUTINE_MULTI          lbc_lnk_2d_multi_async
+#     define ROUTINE_LOAD           load_ptr_2d_async
+#     include "lbc_lnk_multi_generic.h90"
+#     undef ROUTINE_MULTI
+#     undef ROUTINE_LOAD
+#  undef DIM_2d
+
+
+#  define DIM_3d
+#     define ROUTINE_MULTI          lbc_lnk_3d_multi_async
+#     define ROUTINE_LOAD           load_ptr_3d_async
+#     include "lbc_lnk_multi_generic.h90"
+#     undef ROUTINE_MULTI
+#     undef ROUTINE_LOAD
+#  undef DIM_3d
+
+
+#  define DIM_4d
+#     define ROUTINE_MULTI          lbc_lnk_4d_multi_async
+#     define ROUTINE_LOAD           load_ptr_4d_async
+#     include "lbc_lnk_multi_generic.h90"
+#     undef ROUTINE_MULTI
+#     undef ROUTINE_LOAD
+#  undef DIM_4d
+
+#undef ASYNC
+#endif
 
    SUBROUTINE simulated_lbc_lnk ()