From 72a03433347ee5e76b0013b8d4500d32b12a7e30 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 4 Oct 2021 11:24:12 +0200
Subject: [PATCH] removed RESTART variable. Restart is set by job2load >= 0
---
src/basic_mod.F90 | 3 +--
src/inital.F90 | 4 ++--
src/initial_par_mod.F90 | 2 +-
3 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/src/basic_mod.F90 b/src/basic_mod.F90
index 599fefbc..b5234057 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 a2273ff6..1f08a444 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 30a161f9..ffb71a68 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
--
GitLab