Changeset 14229 for NEMO/trunk/src/OCE/OBS
- Timestamp:
- 2020-12-20T13:45:55+01:00 (3 years ago)
- Location:
- NEMO/trunk/src/OCE/OBS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/OBS/mpp_map.F90
r13286 r14229 13 13 USE par_oce , ONLY : jpi, jpj, Nis0, Nie0, Njs0, Nje0 ! Ocean parameters 14 14 USE dom_oce , ONLY : mig, mjg, narea ! Ocean space and time domain variables 15 #if defined key_mpp_mpi15 #if ! defined key_mpi_off 16 16 USE lib_mpp , ONLY : mpi_comm_oce ! MPP library 17 17 #endif … … 45 45 !!---------------------------------------------------------------------- 46 46 INTEGER, DIMENSION(:,:), ALLOCATABLE :: imppmap ! 47 #if defined key_mpp_mpi47 #if ! defined key_mpi_off 48 48 INTEGER :: ierr 49 49 … … 69 69 ! Get global data 70 70 71 #if defined key_mpp_mpi71 #if ! defined key_mpi_off 72 72 73 73 ! Call the MPI library to find the max across processors -
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.