From affff522304ad67ab48993bf3e56adf7cd3eb9ab Mon Sep 17 00:00:00 2001 From: Naoki Mizukami Date: Sat, 27 Mar 2021 13:01:14 -0600 Subject: [PATCH] fixed the problem of breking line when writing long restart path in rponter.rof --- route/build/src/write_restart_pio.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/route/build/src/write_restart_pio.f90 b/route/build/src/write_restart_pio.f90 index 6a9994db..4a03443f 100644 --- a/route/build/src/write_restart_pio.f90 +++ b/route/build/src/write_restart_pio.f90 @@ -166,7 +166,7 @@ SUBROUTINE restart_output(ierr, message) character(*), intent(out) :: message ! error message ! local variables character(len=strLen) :: cmessage ! error message of downwind routine - character(len=strLen) :: fnameRestart ! name of the restart file name + character(len=300) :: fnameRestart ! name of the restart file name character(len=50),parameter :: fmtYMDHMS = '(2a,I0.4,a,I0.2,a,I0.2,x,I0.2,a,I0.2,a,I0.2)' ierr=0; message='restart_output/' @@ -187,7 +187,7 @@ SUBROUTINE restart_output(ierr, message) if(ierr/=0)then; message=trim(message)//trim(cmessage); return; endif open (1, file = trim(restart_dir)//trim(rpntfil), status='replace', action='write') - write(1,*) trim(fnameRestart) + write(1,'(a)') trim(fnameRestart) close(1) END SUBROUTINE restart_output