Changeset e048999 in flexpart.git

Timestamp:

Aug 23, 2019, 10:08:48 AM (5 years ago)

Author:

Ignacio Pisso <ip@…>

Branches:

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

Children:

7952ca4

Parents:

f04992e

Message:

replace the nonstandard call flush () with the F2003 standard flush () in concoutput_inversion.f90

File:

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

src/concoutput_inversion.f90

@@ -355 +355 @@
                  & access='APPEND', iostat=ierr)
             write(unitrelnames,'(a)') areldate//areltime//'_'//anspec
-            call flush(unit=unitrelnames)
+            !call flush(unit=unitrelnames)
+            flush(unit=unitrelnames)
             close(unitrelnames)
           endif