DRIVER: Add flag to identify if the run is for restarted job.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-01-28 15:53:50 -02:00
parent 4f7248533f
commit 01276925ee

View File

@ -83,6 +83,11 @@ program amun
!
implicit none
! flat to identify if the problem is run from scratch or restarted
!
logical :: job_restart = .false.
integer :: nres = 0
! default parameters
!
integer :: nmax = huge(1), ndat = 1
@ -264,9 +269,10 @@ program amun
end if
#endif /* MPI */
! reset the termination flag
! check if the job is restarted
!
iterm = 0
call get_parameter_integer("restart_number", nres)
job_restart = nres > 0
! get the execution termination parameters
!