Changeset 14892

Timestamp:

2021-05-20T16:16:01+02:00 (3 years ago)

Author:

dguibert

Message:

lbc_lnk_call_generic: add lbc_lnk_pt2pt_async

File:

• NEMO/branches/2021/dev_r14447_HPC-07_Irrmann_try_new_pt2pt/src/OCE/LBC/lbc_lnk_call_generic.h90 (modified) (5 diffs)

NEMO/branches/2021/dev_r14447_HPC-07_Irrmann_try_new_pt2pt/src/OCE/LBC/lbc_lnk_call_generic.h90

@@ -2 +2 @@
 #   define XD     2d
 #   define DIMS   :,:
-#   define ISZ3   1 
-#   define ISZ4   1   
+#   define ISZ3   1
+#   define ISZ4   1
 #endif
 #if defined DIM_3d
@@ -24 +24 @@
       &                   , pt9 , cdna9 , psgn9 , pt10, cdna10, psgn10, pt11, cdna11, psgn11, pt12, cdna12, psgn12  &
       &                   , pt13, cdna13, psgn13, pt14, cdna14, psgn14, pt15, cdna15, psgn15, pt16, cdna16, psgn16  &
-      &                   , kfillmode, pfillval, khls, lsend, lrecv, ld4only )
+      &                   , kfillmode, pfillval, khls, lsend, lrecv, ld4only                                        &
+      &                   , loop_fct                                                                                &
+      &                   )
       !!---------------------------------------------------------------------
       CHARACTER(len=*)     ,                   INTENT(in   ) ::   cdname  ! name of the calling subroutine
@@ -46 +48 @@
       CHARACTER(len=1) , DIMENSION(16) ::   cdna_ptr    ! nature of ptab_ptr grid-points
       REAL(PRECISION)  , DIMENSION(16) ::   psgn_ptr    ! sign used across the north fold boundary
+      interface
+        subroutine loop_fct(i0, i1, j0, j1, k0, k1, buf)
+          integer, intent(in) :: i0, i1, j0, j1, k0, k1
+          REAL*8, dimension(:,:,:,:,:,:), optional, intent(out) :: buf
+        end subroutine loop_fct
+      end interface
+      optional :: loop_fct
       !!---------------------------------------------------------------------
       !
@@ -70 +79 @@
       IF( PRESENT(psgn16) )   CALL load_ptr_/**/XD/**/_/**/PRECISION( pt16, cdna16, psgn16, ptab_ptr, cdna_ptr, psgn_ptr, kfld )
       !
-      
+
       IF( lints ) THEN   ! in time splitting
          IF( ln_tspers ) THEN
             CALL lbc_lnk_persistent( cdname, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval, khls, lsend, lrecv, ld4only )
+         elseif(present(loop_fct) .and. ln_async)
+            CALL lbc_lnk_pt2pt_async( cdname, loop_fct, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval, khls, lsend, lrecv, ld4only )
          ELSE
             SELECT CASE (nn_comm)
@@ -86 +97 @@
             END SELECT
          END IF
+      elseif(present(loop_fct) .and. ln_async)
+         CALL lbc_lnk_pt2pt_async( cdname, loop_fct, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval, khls, lsend, lrecv, ld4only )
       ELSE               ! No persistent call outside time-splitting
          SELECT CASE (nn_comm)