Changeset 14229 for NEMO/trunk/src/OCE/timing.F90
- Timestamp:
- 2020-12-20T13:45:55+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/timing.F90
r14072 r14229 31 31 PUBLIC timing_start, timing_stop ! called in each routine to time 32 32 33 #if defined key_mpp_mpi33 #if ! defined key_mpi_off 34 34 INCLUDE 'mpif.h' 35 35 #endif … … 116 116 CALL CPU_TIME( s_timer%t_cpu ) 117 117 ! clock time collection 118 #if defined key_mpp_mpi118 #if ! defined key_mpi_off 119 119 s_timer%t_clock= MPI_Wtime() 120 120 #else … … 142 142 143 143 ! clock time collection 144 #if defined key_mpp_mpi144 #if ! defined key_mpi_off 145 145 zmpitime = MPI_Wtime() 146 146 #else … … 166 166 167 167 ! clock time correction 168 #if defined key_mpp_mpi168 #if ! defined key_mpi_off 169 169 zclock_raw = zmpitime - s_timer%t_clock - t_overclock ! total time including child 170 170 s_timer%t_clock = zclock_raw - t_overclock - s_timer%tsub_clock … … 249 249 250 250 ! Compute clock function overhead 251 #if defined key_mpp_mpi251 #if ! defined key_mpi_off 252 252 t_overclock = MPI_WTIME() 253 253 t_overclock = MPI_WTIME() - t_overclock … … 274 274 275 275 CALL CPU_TIME(t_cpu(1)) 276 #if defined key_mpp_mpi276 #if ! defined key_mpi_off 277 277 ! Start elapsed and CPU time counters 278 278 t_elaps(1) = MPI_WTIME() … … 305 305 CALL CPU_TIME(t_cpu(2)) 306 306 t_cpu(2) = t_cpu(2) - t_cpu(1) - t_overcpu 307 #if defined key_mpp_mpi307 #if ! defined key_mpi_off 308 308 t_elaps(2) = MPI_WTIME() - t_elaps(1) - t_overclock 309 309 #else … … 336 336 ENDIF 337 337 338 #if defined key_mpp_mpi338 #if ! defined key_mpi_off 339 339 ! in MPI gather some info 340 340 ALLOCATE( all_etime(jpnij), all_ctime(jpnij) ) … … 360 360 IF( lwriter ) WRITE(numtime,'(5x,f12.3,1x,f12.3)') tot_etime, tot_ctime 361 361 IF( lwriter ) WRITE(numtime,*) 362 #if defined key_mpp_mpi362 #if ! defined key_mpi_off 363 363 IF( ll_averep ) CALL waver_info 364 364 CALL wmpi_info … … 377 377 & czone(1:3), czone(4:5) 378 378 379 #if defined key_mpp_mpi379 #if ! defined key_mpi_off 380 380 ALLOCATE(timing_glob(4*jpnij), stat=icode) 381 381 CALL MPI_GATHER( (/compute_time, waiting_time(1), waiting_time(2), elapsed_time/), & … … 458 458 END SUBROUTINE wcurrent_info 459 459 460 #if defined key_mpp_mpi460 #if ! defined key_mpi_off 461 461 SUBROUTINE waver_info 462 462 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.