Skip to content
Snippets Groups Projects
Commit 72a03433 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

removed RESTART variable. Restart is set by job2load >= 0

parent 6fa34bf7
No related branches found
No related tags found
No related merge requests found
...@@ -18,7 +18,6 @@ MODULE basic ...@@ -18,7 +18,6 @@ MODULE basic
INTEGER :: jobnum = 0 ! Job number INTEGER :: jobnum = 0 ! Job number
INTEGER :: step = 0 ! Calculation step of this run INTEGER :: step = 0 ! Calculation step of this run
INTEGER :: cstep = 0 ! Current step number (Init from restart file) INTEGER :: cstep = 0 ! Current step number (Init from restart file)
LOGICAL :: RESTART = .FALSE. ! Signal end of run
LOGICAL :: nlend = .FALSE. ! Signal end of run LOGICAL :: nlend = .FALSE. ! Signal end of run
LOGICAL :: crashed = .FALSE. ! Signal end of crashed run LOGICAL :: crashed = .FALSE. ! Signal end of crashed run
...@@ -67,7 +66,7 @@ CONTAINS ...@@ -67,7 +66,7 @@ CONTAINS
use prec_const use prec_const
IMPLICIT NONE IMPLICIT NONE
NAMELIST /BASIC/ nrun, dt, tmax, RESTART, maxruntime NAMELIST /BASIC/ nrun, dt, tmax, maxruntime
READ(lu_in,basic) READ(lu_in,basic)
......
...@@ -19,8 +19,8 @@ SUBROUTINE inital ...@@ -19,8 +19,8 @@ SUBROUTINE inital
CALL set_updatetlevel(1) CALL set_updatetlevel(1)
!!!!!! Set the moments arrays Nepj, Nipj and phi!!!!!! !!!!!! Set the moments arrays Nepj, Nipj and phi!!!!!!
! through loading a previou state ! through loading a previous state
IF ( RESTART ) THEN IF ( job2load .GE. 0 ) THEN
IF (my_id .EQ. 0) WRITE(*,*) 'Load moments' IF (my_id .EQ. 0) WRITE(*,*) 'Load moments'
CALL load_moments ! get N_0 CALL load_moments ! get N_0
CALL poisson ! compute phi_0=phi(N_0) CALL poisson ! compute phi_0=phi(N_0)
......
...@@ -33,7 +33,7 @@ CONTAINS ...@@ -33,7 +33,7 @@ CONTAINS
SUBROUTINE initial_readinputs SUBROUTINE initial_readinputs
! Read the input parameters ! Read the input parameters
USE basic, ONLY : lu_in, RESTART USE basic, ONLY : lu_in
USE prec_const USE prec_const
IMPLICIT NONE IMPLICIT NONE
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment