removed flush statement from concoutput_inversion

10bfff93 · ronesy · 7952ca45 · 10bfff93
Commit 10bfff93 authored Aug 23, 2019 by ronesy
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 2 deletions

src/concoutput_inversion.f90 src/concoutput_inversion.f90 +0 -2

No files found.
--- a/src/concoutput_inversion.f90
+++ b/src/concoutput_inversion.f90
@@ -354,8 +354,6 @@ subroutine concoutput_inversion(itime,outnum,gridtotalunc,wetgridtotalunc, &
            open(unit=unitrelnames, file=path(2)(1:length(2))//'releases_out',form='formatted', &
                 & access='APPEND', iostat=ierr)
            write(unitrelnames,'(a)') areldate//areltime//'_'//anspec
-            !call flush(unit=unitrelnames)
-            flush(unit=unitrelnames)
            close(unitrelnames)
          endif
        endif