Changeset 10178
- Timestamp:
- 2018-10-08T14:31:33+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/timing.F90
r10172 r10178 263 263 t_overcpu = t_overcpu - zdum 264 264 t_overclock = t_overcpu + t_overclock 265 WRITE(*,*) 't_overcpu ', t_overcpu266 WRITE(*,*) 't_overclock ', t_overclock267 t_overcpu = 0.268 t_overclock = 0.269 265 270 266 ! Timing on date and time … … 304 300 t_cpu(2) = t_cpu(2) - t_cpu(1) - t_overcpu 305 301 #if defined key_mpp_mpi 306 WRITE(*,*) 't_overclock ', t_overclock307 WRITE(*,*) 't_elaps(1) ', t_elaps(1)308 WRITE(*,*) 'MPI_WTIME() ', MPI_WTIME()309 302 t_elaps(2) = MPI_WTIME() - t_elaps(1) - t_overclock 310 WRITE(*,*) 't_elaps(2) ', t_elaps(2)311 303 #else 312 304 CALL SYSTEM_CLOCK(COUNT = nfinal_count)
Note: See TracChangeset
for help on using the changeset viewer.