Changes in src/FLEXPART_MPI.f90 [2eefa58:20963b1] in flexpart.git

File:

• src/FLEXPART_MPI.f90 (modified) (4 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
   !******************************************
@@ -146 +151 @@
     write(*,*) 'call readpaths'
   endif 
-  call readpaths
+  call readpaths(pathfile)
  
   if (verbosity.gt.1) then !show clock info 
@@ -174 +179 @@
     endif
   endif
-
-  ! Initialize arrays in com_mod 
-  !*****************************
-
-  if(.not.(lmpreader.and.lmp_use_reader)) call com_mod_allocate_part(maxpart_mpi)
 
 
@@ -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