Changeset 14229 for NEMO/trunk/src/OCE/OBS/obs_mpp.F90
- Timestamp:
- 2020-12-20T13:45:55+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/OBS/obs_mpp.F90
r10068 r14229 21 21 USE mpp_map, ONLY : mppmap 22 22 USE in_out_manager 23 #if defined key_mpp_mpi23 #if ! defined key_mpi_off 24 24 USE lib_mpp, ONLY : mpi_comm_oce ! MPP library 25 25 #endif … … 61 61 INTEGER, DIMENSION(kno), INTENT(inout) :: kvals ! Array to send on kroot, receive for non-kroot 62 62 ! 63 #if defined key_mpp_mpi63 #if ! defined key_mpi_off 64 64 ! 65 65 INTEGER :: ierr … … 95 95 INTEGER, DIMENSION(kno), INTENT(inout) :: kvals ! Array to send on kroot, receive for non-kroot 96 96 ! 97 #if defined key_mpp_mpi97 #if ! defined key_mpi_off 98 98 ! 99 99 INTEGER :: ierr … … 134 134 INTEGER, DIMENSION(kno), INTENT(inout) :: kobsp 135 135 ! 136 #if defined key_mpp_mpi136 #if ! defined key_mpi_off 137 137 ! 138 138 ! … … 192 192 INTEGER, DIMENSION(kno), INTENT( out) :: kvalsout 193 193 ! 194 #if defined key_mpp_mpi194 #if ! defined key_mpi_off 195 195 ! 196 196 INTEGER :: ierr … … 230 230 INTEGER, INTENT( out) :: kvalout 231 231 ! 232 #if defined key_mpp_mpi232 #if ! defined key_mpi_off 233 233 ! 234 234 INTEGER :: ierr … … 270 270 INTEGER :: ierr 271 271 ! 272 #if defined key_mpp_mpi272 #if ! defined key_mpi_off 273 273 ! 274 274 INCLUDE 'mpif.h' … … 318 318 INTEGER :: ierr 319 319 ! 320 #if defined key_mpp_mpi320 #if ! defined key_mpi_off 321 321 ! 322 322 INCLUDE 'mpif.h' … … 360 360 INTEGER :: jproc 361 361 ! 362 #if defined key_mpp_mpi362 #if ! defined key_mpi_off 363 363 ! 364 364 INCLUDE 'mpif.h' … … 412 412 INTEGER :: jproc 413 413 ! 414 #if defined key_mpp_mpi414 #if ! defined key_mpi_off 415 415 ! 416 416 INCLUDE 'mpif.h'
Note: See TracChangeset
for help on using the changeset viewer.