Changeset d005a67 in flexpart.git for src/FLEXPART_MPI.f90
- Timestamp:
- May 21, 2019, 1:09:18 PM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- f963113, 0a98afe
- Parents:
- 5d74ed9 (diff), 0c8c7f2 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART_MPI.f90
r20963b1 r0c8c7f2 77 77 if (mp_measure_time) call mpif_mtime('flexpart',0) 78 78 79 ! Initialize arrays in com_mod 80 !***************************** 81 82 if(.not.(lmpreader.and.lmp_use_reader)) call com_mod_allocate_part(maxpart_mpi) 83 84 79 85 80 ! Generate a large number of random numbers 86 81 !****************************************** … … 180 175 endif 181 176 177 ! Initialize arrays in com_mod 178 !***************************** 179 180 if(.not.(lmpreader.and.lmp_use_reader)) call com_mod_allocate_part(maxpart_mpi) 181 182 182 183 183 ! Read the age classes to be used … … 413 413 end if ! (mpif_pid == 0) 414 414 415 if (mp_measure_time) call mpif_mtime('iotime', 0)415 if (mp_measure_time) call mpif_mtime('iotime',1) 416 416 417 417 if (verbosity.gt.0 .and. lroot) then
Note: See TracChangeset
for help on using the changeset viewer.