diff --git a/src/basic_mod.F90 b/src/basic_mod.F90 index 599fefbcc97546de9d813059fc0c9c1cb315ca91..b523405726ab203af7e0ee06efe26cf9609c6409 100644 --- a/src/basic_mod.F90 +++ b/src/basic_mod.F90 @@ -18,7 +18,6 @@ MODULE basic INTEGER :: jobnum = 0 ! Job number INTEGER :: step = 0 ! Calculation step of this run 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 :: crashed = .FALSE. ! Signal end of crashed run @@ -67,7 +66,7 @@ CONTAINS use prec_const IMPLICIT NONE - NAMELIST /BASIC/ nrun, dt, tmax, RESTART, maxruntime + NAMELIST /BASIC/ nrun, dt, tmax, maxruntime READ(lu_in,basic) diff --git a/src/inital.F90 b/src/inital.F90 index a2273ff64f7c5d9cb5930d53bfd5acf0b2d02341..1f08a444aa8f4e60592929618ce546d7e9d7fb4e 100644 --- a/src/inital.F90 +++ b/src/inital.F90 @@ -19,8 +19,8 @@ SUBROUTINE inital CALL set_updatetlevel(1) !!!!!! Set the moments arrays Nepj, Nipj and phi!!!!!! - ! through loading a previou state - IF ( RESTART ) THEN + ! through loading a previous state + IF ( job2load .GE. 0 ) THEN IF (my_id .EQ. 0) WRITE(*,*) 'Load moments' CALL load_moments ! get N_0 CALL poisson ! compute phi_0=phi(N_0) diff --git a/src/initial_par_mod.F90 b/src/initial_par_mod.F90 index 30a161f9bebd3472908f17668365f6461f6fb12d..ffb71a686177be43b77fa35d4191f5a73d6f0800 100644 --- a/src/initial_par_mod.F90 +++ b/src/initial_par_mod.F90 @@ -33,7 +33,7 @@ CONTAINS SUBROUTINE initial_readinputs ! Read the input parameters - USE basic, ONLY : lu_in, RESTART + USE basic, ONLY : lu_in USE prec_const IMPLICIT NONE