Changeset 15023 for NEMO/trunk/src/OCE/LBC/lib_mpp.F90
- Timestamp:
- 2021-06-18T16:35:25+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LBC/lib_mpp.F90
r14433 r15023 76 76 PUBLIC mpp_bcast_nml 77 77 PUBLIC tic_tac 78 #if defined key_mpp_off 79 PUBLIC MPI_wait 80 PUBLIC MPI_Wtime 78 #if defined key_mpi_off 79 PUBLIC MPI_wait 80 PUBLIC MPI_waitall 81 PUBLIC MPI_Wtime 81 82 #endif 82 83 … … 127 128 INTEGER, PUBLIC, PARAMETER :: MPI_REAL = 4 128 129 INTEGER, PUBLIC, PARAMETER :: MPI_DOUBLE_PRECISION = 8 130 INTEGER, PUBLIC, PARAMETER :: MPI_REQUEST_NULL = 1 129 131 LOGICAL, PUBLIC, PARAMETER :: lk_mpp = .FALSE. !: mpp flag 132 INTEGER, PUBLIC, DIMENSION(MPI_STATUS_SIZE) :: MPI_STATUS_IGNORE = 1 ! out from mpi_wait 133 INTEGER, PUBLIC, DIMENSION(MPI_STATUS_SIZE) :: MPI_STATUSES_IGNORE = 1 ! out from mpi_waitall 130 134 #endif 131 135 … … 1401 1405 INTEGER, DIMENSION(MPI_STATUS_SIZE), INTENT( out) :: status 1402 1406 INTEGER , INTENT( out) :: ierror 1407 IF (.FALSE.) THEN ! to avoid compilation warning 1408 status(:) = -1 1409 ierror = -1 1410 ENDIF 1403 1411 END SUBROUTINE mpi_wait 1404 1412 1413 SUBROUTINE mpi_waitall(count, request, status, ierror) 1414 INTEGER , INTENT(in ) :: count 1415 INTEGER, DIMENSION(count) , INTENT(in ) :: request 1416 INTEGER, DIMENSION(MPI_STATUS_SIZE), INTENT( out) :: status 1417 INTEGER , INTENT( out) :: ierror 1418 IF (.FALSE.) THEN ! to avoid compilation warning 1419 status(:) = -1 1420 ierror = -1 1421 ENDIF 1422 END SUBROUTINE mpi_waitall 1405 1423 1406 1424 FUNCTION MPI_Wtime()
Note: See TracChangeset
for help on using the changeset viewer.