Changeset 0c8c7f2 in flexpart.git

Timestamp:

May 8, 2019, 2:54:11 PM (5 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug

Children:

3d7eebf

Parents:

0a94e13

Message:

Forgot to add new files on previous commit

Location:

src

Files:

• FLEXPART_MPI.f90 (modified) (1 diff)
• mpi_mod.f90 (modified) (1 prop)
• partoutput_average.f90 (added)
• partoutput_average_mpi.f90 (added)
• partpos_average.f90 (added)
• timemanager_mpi.f90 (modified) (2 diffs)

src/FLEXPART_MPI.f90

@@ -413 +413 @@
   end if ! (mpif_pid == 0) 
 
-  if (mp_measure_time) call mpif_mtime('iotime',0)
+  if (mp_measure_time) call mpif_mtime('iotime',1)
 
   if (verbosity.gt.0 .and. lroot) then

src/timemanager_mpi.f90

@@ -594 +594 @@
 46      format(' Simulated ',f7.1,' hours (',i13,' s), ',i13, ' particles')
         if (ipout.ge.1) then
+          if (mp_measure_time) call mpif_mtime('iotime',0)
           irec=0
           do ip=0, mp_partgroup_np-1
@@ -603 +604 @@
             call mpif_mpi_barrier
           end do
+          if (mp_measure_time) call mpif_mtime('iotime',1)
         end if