Changeset 14229 for NEMO/trunk/src/OCE/OBS/mpp_map.F90

Timestamp:

2020-12-20T13:45:55+01:00 (4 years ago)

Author:

smasson

Message:

trunk: replace key_mpp_mpi by the opposite key key_mpi_off

File:

• NEMO/trunk/src/OCE/OBS/mpp_map.F90 (modified) (3 diffs)

NEMO/trunk/src/OCE/OBS/mpp_map.F90

@@ -13 +13 @@
    USE par_oce , ONLY :   jpi, jpj, Nis0, Nie0, Njs0, Nje0   ! Ocean parameters
    USE dom_oce , ONLY :   mig, mjg, narea                    ! Ocean space and time domain variables
-#if defined key_mpp_mpi
+#if ! defined key_mpi_off
    USE lib_mpp , ONLY :   mpi_comm_oce   ! MPP library
 #endif
@@ -45 +45 @@
       !!----------------------------------------------------------------------
       INTEGER, DIMENSION(:,:), ALLOCATABLE ::   imppmap   !
-#if defined key_mpp_mpi
+#if ! defined key_mpi_off
       INTEGER :: ierr
 
@@ -69 +69 @@
       ! Get global data
 
-#if defined key_mpp_mpi
+#if ! defined key_mpi_off
 
       ! Call the MPI library to find the max across processors