Changeset ffbe224 in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Jan 20, 2020, 10:01:44 AM (4 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

dev

Children:

11d86e7

Parents:

95a8cb6

Message:

first version for fluxoutput in netcdf

File:

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

src/timemanager_mpi.f90

@@ -536 +536 @@
         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)