Changeset 11389 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/LBC/lib_mpp.F90
- Timestamp:
- 2019-08-02T09:51:41+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/LBC/lib_mpp.F90
r11317 r11389 67 67 PUBLIC mpp_report 68 68 PUBLIC tic_tac 69 #if ! defined key_mpp_mpi 70 PUBLIC MPI_Wtime 71 #endif 69 72 70 73 !! * Interfaces … … 1059 1062 INTEGER , INTENT( out) :: ierror 1060 1063 END SUBROUTINE mpi_wait 1064 1065 1066 FUNCTION MPI_Wtime() 1067 REAL(wp) :: MPI_Wtime 1068 MPI_Wtime = -1. 1069 END FUNCTION MPI_Wtime 1061 1070 #endif 1062 1071
Note: See TracChangeset
for help on using the changeset viewer.