Changeset 14984 for NEMO

Timestamp:

2021-06-14T10:07:36+02:00 (3 years ago)

Author:

smasson

Message:

ticket2680_C1D_PAPA: fix to work with key_mpi_off, #2680

Location:

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

Files:

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

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

@@ -1405 +1405 @@
       INTEGER, DIMENSION(MPI_STATUS_SIZE), INTENT(  out) ::   status
       INTEGER                            , INTENT(  out) ::   ierror
+      IF (.FALSE.) THEN   ! to avoid compilation warning
+         status(:) = -1
+         ierror = -1
+      ENDIF
    END SUBROUTINE mpi_wait
 
@@ -1412 +1416 @@
       INTEGER, DIMENSION(MPI_STATUS_SIZE), INTENT(  out) :: status
       INTEGER                            , INTENT(  out) :: ierror
+      IF (.FALSE.) THEN   ! to avoid compilation warning
+         status(:) = -1
+         ierror = -1
+      ENDIF
    END SUBROUTINE mpi_waitall
 

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

@@ -78 +78 @@
       njmpp   = 1
       nidom   = FLIO_DOM_NONE
+      !
+      mpiSnei(:,:) = -1
+      mpiRnei(:,:) = -1
+      l_SelfPerio(1:2) = l_Iperio                  !  west,  east periodicity by itself
+      l_SelfPerio(3:4) = l_Jperio                  ! south, north periodicity by itself
+      l_SelfPerio(5:8) = l_Iperio .AND. l_Jperio   ! corners bi-periodicity by itself
+      l_IdoNFold = l_NFold                         ! is this process doing North fold?
       !
       CALL init_doloop                       ! set start/end indices or do-loop depending on the halo width value (nn_hls)