From cc6642c17bad957c32f321602c214c2f42397502 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Fri, 18 Nov 2016 10:12:51 -0200 Subject: [PATCH] DRIVER: Use iterm instead of iret in read_restart_snapshot(). In this way the last message will indicate where the problem is. Signed-off-by: Grzegorz Kowal --- src/driver.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/driver.F90 b/src/driver.F90 index 57d8a08..c611c0a 100644 --- a/src/driver.F90 +++ b/src/driver.F90 @@ -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."