gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DRIVER: Use iterm instead of iret in read_restart_snapshot().

Browse Source 
In this way the last message will indicate where the problem is.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2016-11-18 10:12:51 -02:00
parent 275856c587
commit cc6642c17b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/driver.F90
View File

@ -450,11 +450,11 @@ program amun
! reconstruct the meta and data block structures from a given restart file
!
call read_restart_snapshot(iret)
call read_restart_snapshot(iterm)
! quit if there was a problem with reading restart snapshots
!
if (iret > 0) go to 10
if (iterm > 0) go to 10
! update the list of leafs
!
@ -845,7 +845,7 @@ program amun
" execution time."
write (*,"(1x,a)") "Restart files have been successfully written."
end if
if (iterm >= 101) then
if (iterm >= 101 .and. iterm < 120) then
write (*,'(a)') ''
write (*,"(1x,a)") "The initial conditions for the selected problem" // &
" could not be set."