Changes in src/FLEXPART_MPI.f90 [20963b1:0c8c7f2] in flexpart.git
- 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.