Commit e0489996 authored by Ignacio Pisso's avatar Ignacio Pisso

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

parent f04992e9
......@@ -354,7 +354,8 @@ 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)
!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