Changeset 1228ef7 in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Aug 2, 2021, 12:11:23 PM (3 years ago)

Author:

Espen Sollum <eso@…>

Branches:

dev

Parents:

6cb0801

Message:

MPI: fix for mquasilag output

File:

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

src/timemanager_mpi.f90

@@ -448 +448 @@
       endif
 
-! :TODO: MPI output of particle positions;  each process sequentially
-!   access the same file
       if ((mquasilag.eq.1).and.(itime.eq.(loutstart+loutend)/2)) &
-           call partoutput_short(itime)    ! dump particle positions in extremely compressed format
+           call partoutput_short(itime) ! dump particle positions in extremely compressed format
 
 
@@ -557 +555 @@
         if ((iout.eq.4).or.(iout.eq.5)) call plumetraj(itime)
         if ((iflux.eq.1).and.(lnetcdfout.eq.0)) call fluxoutput(itime)
+#ifdef USE_NCF
         if ((iflux.eq.1).and.(lnetcdfout.eq.1)) call fluxoutput_netcdf(itime)
+#endif
         if (mp_measure_time) call mpif_mtime('iotime',1)