Commit 10bfff93 authored by ronesy's avatar ronesy

removed flush statement from concoutput_inversion

parent 7952ca45
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment