- Timestamp:
- 2018-05-11T12:53:25+02:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC
- Files:
-
- 1 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/OBS/mpp_map.F90
r9523 r9570 14 14 USE dom_oce , ONLY : mig, mjg, nldi, nlei, nldj, nlej, nlci, nlcj, narea ! Ocean space and time domain variables 15 15 #if defined key_mpp_mpi 16 USE lib_mpp, ONLY : mpi_comm_o pa! MPP library16 USE lib_mpp, ONLY : mpi_comm_oce ! MPP library 17 17 #endif 18 18 USE in_out_manager ! I/O manager … … 26 26 27 27 !!---------------------------------------------------------------------- 28 !! NEMO/O PA3.3 , NEMO Consortium (2010)28 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 29 29 !! $Id$ 30 30 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 73 73 ! Call the MPI library to find the max across processors 74 74 CALL mpi_allreduce( imppmap, mppmap, jpiglo*jpjglo, mpi_integer, & 75 & mpi_max, mpi_comm_o pa, ierr )75 & mpi_max, mpi_comm_oce, ierr ) 76 76 #else 77 77
Note: See TracChangeset
for help on using the changeset viewer.