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:
parent
4f7248533f
commit
01276925ee
@ -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
|
||||
!
|
||||
|
Loading…
x
Reference in New Issue
Block a user