Changeset 11389
- Timestamp:
- 2019-08-02T09:51:41+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE
- Files:
-
- 3 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 -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/nemogcm.F90
r11385 r11389 130 130 !!---------------------------------------------------------------------- 131 131 INTEGER :: istp ! time step index 132 REAL(wp):: zstptiming ! elapsed time for 1 time step 132 133 !!---------------------------------------------------------------------- 133 134 ! … … 190 191 ! 191 192 DO WHILE( istp <= nitend .AND. nstop == 0 ) 192 #if defined key_mpp_mpi 193 193 194 ncom_stp = istp 194 IF ( istp == ( nit000 + 1 ) ) elapsed_time = MPI_Wtime() 195 IF ( istp == nitend ) elapsed_time = MPI_Wtime() - elapsed_time 196 #endif 195 IF( ln_timing ) THEN 196 zstptiming = MPI_Wtime() 197 IF ( istp == ( nit000 + 1 ) ) elapsed_time = zstptiming 198 IF ( istp == nitend ) elapsed_time = zstptiming - elapsed_time 199 ENDIF 200 197 201 CALL stp ( istp ) 198 202 istp = istp + 1 203 204 IF( lwp .AND. ln_timing ) WRITE(numtime,*) 'timing step ', istp-1, ' : ', MPI_Wtime() - zstptiming 205 199 206 END DO 200 207 ! -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/timing.F90
r11373 r11389 347 347 348 348 ! write output file 349 IF( lwriter ) WRITE(numtime,*) 350 IF( lwriter ) WRITE(numtime,*) 349 351 IF( lwriter ) WRITE(numtime,*) 'Total timing (sum) :' 350 352 IF( lwriter ) WRITE(numtime,*) '--------------------'
Note: See TracChangeset
for help on using the changeset viewer.