Changeset 14229 for NEMO/trunk/src/OCE/DIA/diaptr.F90

Timestamp:

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

Author:

smasson

Message:

trunk: replace key_mpp_mpi by the opposite key key_mpi_off

File:

• NEMO/trunk/src/OCE/DIA/diaptr.F90 (modified) (4 diffs)

NEMO/trunk/src/OCE/DIA/diaptr.F90

@@ -578 +578 @@
       REAL(wp), DIMENSION(A1Dj(nn_hls),nbasin), INTENT(in)            ::  pva    !
       INTEGER                                               ::  jj
-#if defined key_mpp_mpi
+#if ! defined key_mpi_off
       INTEGER, DIMENSION(1)           ::  ish1d
       INTEGER, DIMENSION(2)           ::  ish2d
@@ -588 +588 @@
       END DO
 
-#if defined key_mpp_mpi
+#if ! defined key_mpi_off
       IF( ntile == 0 .OR. ntile == nijtile ) THEN
          ish1d(1) = jpj*nbasin
@@ -614 +614 @@
       REAL(wp), DIMENSION(A1Dj(nn_hls),jpk,nbasin), INTENT(in)        ::  pva    !
       INTEGER                                               ::  jj, jk
-#if defined key_mpp_mpi
+#if ! defined key_mpi_off
       INTEGER, DIMENSION(1)              ::  ish1d
       INTEGER, DIMENSION(3)              ::  ish3d
@@ -626 +626 @@
       END DO
 
-#if defined key_mpp_mpi
+#if ! defined key_mpi_off
       IF( ntile == 0 .OR. ntile == nijtile ) THEN
          ish1d(1) = jpj*jpk*nbasin