Changeset 14984 for NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/LBC/lib_mpp.F90

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

File:

• NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/LBC/lib_mpp.F90 (modified) (2 diffs)

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