Changeset 0c8c7f2 in flexpart.git for src/timemanager_mpi.f90
- Timestamp:
- May 8, 2019, 2:54:11 PM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 3d7eebf
- Parents:
- 0a94e13
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager_mpi.f90
r0a94e13 r0c8c7f2 594 594 46 format(' Simulated ',f7.1,' hours (',i13,' s), ',i13, ' particles') 595 595 if (ipout.ge.1) then 596 if (mp_measure_time) call mpif_mtime('iotime',0) 596 597 irec=0 597 598 do ip=0, mp_partgroup_np-1 … … 603 604 call mpif_mpi_barrier 604 605 end do 606 if (mp_measure_time) call mpif_mtime('iotime',1) 605 607 end if 606 608
Note: See TracChangeset
for help on using the changeset viewer.