Changeset 4c52d0b in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Apr 8, 2021, 9:27:43 AM (3 years ago)

Author:

Espen Sollum <eso@…>

Branches:

dev

Children:

b1f28c3

Parents:

aa939a9 (diff), 4138764 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'dev' into GFS_025

File:

• src/timemanager_mpi.f90 (modified) (1 diff)

src/timemanager_mpi.f90

@@ -556 +556 @@
         endif
         if ((iout.eq.4).or.(iout.eq.5)) call plumetraj(itime)
-        if (iflux.eq.1) call fluxoutput(itime)
+        if ((iflux.eq.1).and.(lnetcdfout.eq.0)) call fluxoutput(itime)
+        if ((iflux.eq.1).and.(lnetcdfout.eq.1)) call fluxoutput_netcdf(itime)
         if (mp_measure_time) call mpif_mtime('iotime',1)