Changeset 14920 for NEMO/branches/2021

Timestamp:

2021-05-28T09:09:16+02:00 (3 years ago)

Author:

gsamson

Message:

first steps to get C1D_PAPA working without MPI (key_mpi_off)

Location:

NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/LBC

Files:

• lib_mpp.F90 (modified) (3 diffs)
• mppini.F90 (modified) (1 diff)

NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/LBC/lib_mpp.F90

@@ -76 +76 @@
    PUBLIC   mpp_bcast_nml
    PUBLIC   tic_tac
-#if defined key_mpp_off
-   PUBLIC MPI_wait
-   PUBLIC MPI_Wtime
+#if defined key_mpi_off
+   PUBLIC   MPI_wait
+   PUBLIC   MPI_waitall
+   PUBLIC   MPI_Wtime
 #endif
 
@@ -127 +128 @@
    INTEGER, PUBLIC, PARAMETER ::   MPI_REAL = 4
    INTEGER, PUBLIC, PARAMETER ::   MPI_DOUBLE_PRECISION = 8
+   INTEGER, PUBLIC, PARAMETER ::   MPI_REQUEST_NULL = 1
    LOGICAL, PUBLIC, PARAMETER ::   lk_mpp = .FALSE.    !: mpp flag
+   INTEGER, PUBLIC, DIMENSION(MPI_STATUS_SIZE) ::   MPI_STATUS_IGNORE = 1     ! out from mpi_wait
+   INTEGER, PUBLIC, DIMENSION(MPI_STATUS_SIZE) ::   MPI_STATUSES_IGNORE = 1   ! out from mpi_waitall
 #endif
 
@@ -1403 +1407 @@
    END SUBROUTINE mpi_wait
 
+   SUBROUTINE mpi_waitall(count, request, status, ierror)
+      INTEGER                            , INTENT(in   ) :: count
+      INTEGER, DIMENSION(count)          , INTENT(in   ) :: request
+      INTEGER, DIMENSION(MPI_STATUS_SIZE), INTENT(  out) :: status
+      INTEGER                            , INTENT(  out) :: ierror
+   END SUBROUTINE mpi_waitall
 
    FUNCTION MPI_Wtime()

NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/LBC/mppini.F90

@@ -62 +62 @@
       !!----------------------------------------------------------------------
       !
-      nn_hls = 1
-      jpiglo = Ni0glo + 2 * nn_hls
-      jpjglo = Nj0glo + 2 * nn_hls
-      jpimax = jpiglo
-      jpjmax = jpjglo
-      jpi    = jpiglo
-      jpj    = jpjglo
-      jpk    = MAX( 2, jpkglo )
-      jpij   = jpi*jpj
-      jpni   = 1
-      jpnj   = 1
-      jpnij  = jpni*jpnj
-      nimpp  = 1
-      njmpp  = 1
-      nidom  = FLIO_DOM_NONE
+      nn_comm = 1
+      nn_hls  = 1
+      jpiglo  = Ni0glo + 2 * nn_hls
+      jpjglo  = Nj0glo + 2 * nn_hls
+      jpimax  = jpiglo
+      jpjmax  = jpjglo
+      jpi     = jpiglo
+      jpj     = jpjglo
+      jpk     = MAX( 2, jpkglo )
+      jpij    = jpi*jpj
+      jpni    = 1
+      jpnj    = 1
+      jpnij   = jpni*jpnj
+      nimpp   = 1
+      njmpp   = 1
+      nidom   = FLIO_DOM_NONE
       !
       CALL init_doloop                       ! set start/end indices or do-loop depending on the halo width value (nn_hls)