Changeset 2249
- Timestamp:
- 2010-10-13T12:28:29+02:00 (14 years ago)
- Location:
- branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90
r2128 r2249 67 67 !! * Local declarations 68 68 INTEGER :: ierr 69 # include <mpif.h> 69 INCLUDE 'mpif.h' 70 70 #endif 71 71 -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_mpp.F90
r2128 r2249 77 77 !! * Local declarations 78 78 INTEGER :: ierr 79 # include <mpif.h> 79 INCLUDE 'mpif.h' 80 80 81 81 !----------------------------------------------------------------------- … … 119 119 INTEGER, DIMENSION(kno) :: & 120 120 & ivals 121 # include <mpif.h> 121 INCLUDE 'mpif.h' 122 122 123 123 !----------------------------------------------------------------------- … … 177 177 & iobsp, iobsi, iobsj 178 178 179 # include <mpif.h> 179 INCLUDE 'mpif.h' 180 180 181 181 !----------------------------------------------------------------------- … … 285 285 !! * Local declarations 286 286 INTEGER :: ierr 287 # include <mpif.h> 287 INCLUDE 'mpif.h' 288 288 289 289 !----------------------------------------------------------------------- … … 328 328 !! * Local declarations 329 329 INTEGER :: ierr 330 # include <mpif.h> 330 INCLUDE 'mpif.h' 331 331 332 332 !----------------------------------------------------------------------- … … 370 370 INTEGER :: ierr 371 371 #if defined key_mpp_mpi 372 #include <mpif.h> 372 INCLUDE 'mpif.h' 373 373 REAL(KIND=wp), DIMENSION(:,:), ALLOCATABLE :: & 374 374 & zcp … … 422 422 INTEGER :: ierr 423 423 #if defined key_mpp_mpi 424 #include <mpif.h> 424 INCLUDE 'mpif.h' 425 425 !----------------------------------------------------------------------- 426 426 ! Call the MPI library to do the all to all operation of the data … … 472 472 INTEGER :: jproc 473 473 #if defined key_mpp_mpi 474 #include <mpif.h> 474 INCLUDE 'mpif.h' 475 475 INTEGER, DIMENSION(jpnij) :: & 476 476 & irdsp, & … … 534 534 INTEGER :: jproc 535 535 #if defined key_mpp_mpi 536 #include <mpif.h> 536 INCLUDE 'mpif.h' 537 537 INTEGER, DIMENSION(jpnij) :: & 538 538 & irdsp, & -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/lib_mpp.F90
r2236 r2249 124 124 INTEGER :: mppsize ! number of process 125 125 INTEGER :: mpprank ! process number [ 0 - size-1 ] 126 INTEGER :: mpi_comm_opa ! opa local communicator126 INTEGER, PUBLIC :: mpi_comm_opa ! opa local communicator 127 127 128 128 INTEGER, PUBLIC :: MPI_SUMDD
Note: See TracChangeset
for help on using the changeset viewer.