Skip to content
Snippets Groups Projects
Commit 10bfff93 authored by Rona Thompson's avatar Rona Thompson
Browse files

removed flush statement from concoutput_inversion

parent 7952ca45
Branches
Tags
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please to comment