Changeset 38b7917 in flexpart.git for src/concoutput_nest_mpi.f90
- Timestamp:
- Mar 8, 2016, 9:54:38 AM (8 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 9b53903
- Parents:
- db712a8
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/concoutput_nest_mpi.f90
r6a678e3 r38b7917 104 104 105 105 ! Measure execution time 106 if (mp_measure_time) then107 call cpu_time(mp_root_time_beg)108 mp_root_wtime_beg = mpi_wtime()109 end if106 if (mp_measure_time) call mpif_mtime('iotime',0) 107 ! call cpu_time(mp_root_time_beg) 108 ! mp_root_wtime_beg = mpi_wtime() 109 ! end if 110 110 111 111 if (verbosity.eq.1) then … … 580 580 end do 581 581 582 if (mp_measure_time) then 583 call cpu_time(mp_root_time_end) 584 mp_root_wtime_end = mpi_wtime() 585 mp_root_time_total = mp_root_time_total + (mp_root_time_end - mp_root_time_beg) 586 mp_root_wtime_total = mp_root_wtime_total + (mp_root_wtime_end - mp_root_wtime_beg) 587 end if 582 if (mp_measure_time) call mpif_mtime('iotime',1) 583 ! if (mp_measure_time) then 584 ! call cpu_time(mp_root_time_end) 585 ! mp_root_wtime_end = mpi_wtime() 586 ! mp_root_time_total = mp_root_time_total + (mp_root_time_end - mp_root_time_beg) 587 ! mp_root_wtime_total = mp_root_wtime_total + (mp_root_wtime_end - mp_root_wtime_beg) 588 ! end if 588 589 589 590 end subroutine concoutput_nest
Note: See TracChangeset
for help on using the changeset viewer.