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
|
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
|
||||||
!
|
!
|
||||||
|
Loading…
x
Reference in New Issue
Block a user