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

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)
 

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)

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