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 implicit none
! flat to identify if the problem is run from scratch or restarted
!
logical :: job_restart = .false.
integer :: nres = 0
! default parameters ! default parameters
! !
integer :: nmax = huge(1), ndat = 1 integer :: nmax = huge(1), ndat = 1
@ -264,9 +269,10 @@ program amun
end if end if
#endif /* MPI */ #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 ! get the execution termination parameters
! !