Changes in src/FLEXPART_MPI.f90 [0c8c7f2:20963b1] in flexpart.git

File:

• src/FLEXPART_MPI.f90 (modified) (3 diffs)

src/FLEXPART_MPI.f90

@@ -77 +77 @@
   if (mp_measure_time) call mpif_mtime('flexpart',0)
 
-  
+  ! Initialize arrays in com_mod 
+  !*****************************
+
+  if(.not.(lmpreader.and.lmp_use_reader)) call com_mod_allocate_part(maxpart_mpi)
+
+
   ! Generate a large number of random numbers
   !******************************************
@@ -175 +180 @@
   endif
 
-  ! Initialize arrays in com_mod 
-  !*****************************
-
-  if(.not.(lmpreader.and.lmp_use_reader)) call com_mod_allocate_part(maxpart_mpi)
-
 
 ! Read the age classes to be used
@@ -413 +413 @@
   end if ! (mpif_pid == 0) 
 
-  if (mp_measure_time) call mpif_mtime('iotime',1)
+  if (mp_measure_time) call mpif_mtime('iotime',0)
 
   if (verbosity.gt.0 .and. lroot) then