Changeset f55fdce in flexpart.git for src/mpi_mod.f90

Timestamp:

Sep 13, 2015, 7:22:55 PM (9 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, univie

Children:

57c5b2e

Parents:

478e9e6

Message:

Added a modification so thah number of particles in simulation reported to standard output (MPI version) is exact instead of estimated

File:

• src/mpi_mod.f90 (modified) (2 diffs)

src/mpi_mod.f90

@@ -113 +113 @@
 ! mp_measure_time   Measure cpu/wall time, write out at end of run
 ! mp_time_barrier   Measure MPI barrier time
+! mp_exact_numpart  Use an extra MPI communication to give the exact number of particles
+!                   to standard output (this does *not* otherwise affect the simulation) 
   logical, parameter :: mp_dbg_mode = .false.
   logical, parameter :: mp_dev_mode = .false.
   logical, parameter :: mp_dbg_out = .false.
   logical, parameter :: mp_time_barrier=.true.
-  logical, parameter :: mp_measure_time=.false. 
+  logical, parameter :: mp_measure_time=.false.
+  logical, parameter :: mp_exact_numpart=.true.
 
 ! for measuring CPU/Wall time
@@ -1979 +1982 @@
     call MPI_BARRIER(MPI_COMM_WORLD, mp_ierr)
 
-    if (lroot) then
+    if (lroot.and.mp_measure_time) then
       write(*,FMT='(72("#"))')
       WRITE(*,*) "To turn off output of time measurements, set "