Changeset 11389 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/nemogcm.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/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 !
Note: See TracChangeset
for help on using the changeset viewer.