Changeset 13438 for NEMO/trunk/src/OCE/LBC/lib_mpp.F90

Timestamp:

2020-08-26T11:57:31+02:00 (4 years ago)

Author:

smasson

Message:

trunk: bugfix to compile and run the code without key_mpp_mpi, see #2495

File:

• NEMO/trunk/src/OCE/LBC/lib_mpp.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/LBC/lib_mpp.F90

@@ -73 +73 @@
    PUBLIC   tic_tac
 #if ! defined key_mpp_mpi
+   PUBLIC MPI_wait
    PUBLIC MPI_Wtime
 #endif
@@ -115 +116 @@
 #else   
    INTEGER, PUBLIC, PARAMETER ::   MPI_STATUS_SIZE = 1
+   INTEGER, PUBLIC, PARAMETER ::   MPI_REAL = 4
    INTEGER, PUBLIC, PARAMETER ::   MPI_DOUBLE_PRECISION = 8
    LOGICAL, PUBLIC, PARAMETER ::   lk_mpp = .FALSE.    !: mpp flag