From fd6474e8eeebf9bbf543cba87d191b953fd680f6 Mon Sep 17 00:00:00 2001 From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch> Date: Fri, 8 Jan 2021 17:44:00 +0100 Subject: [PATCH] delete redundancy --- src/initial_par_mod.F90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/initial_par_mod.F90 b/src/initial_par_mod.F90 index 50c96ab2..fae5fb3f 100644 --- a/src/initial_par_mod.F90 +++ b/src/initial_par_mod.F90 @@ -5,9 +5,6 @@ MODULE initial_par IMPLICIT NONE PRIVATE - ! To restart the simulation or look for saved state - LOGICAL, PUBLIC, PROTECTED :: RESTART=.true. - CHARACTER(len=128), PUBLIC :: backup_file ! Initial background level REAL(dp), PUBLIC, PROTECTED :: initback_moments=0._dp ! Initial background level @@ -39,8 +36,6 @@ CONTAINS USE prec_const IMPLICIT NONE - NAMELIST /INITIAL_CON/ RESTART - NAMELIST /INITIAL_CON/ backup_file NAMELIST /INITIAL_CON/ only_Na00 NAMELIST /INITIAL_CON/ initback_moments NAMELIST /INITIAL_CON/ initnoise_moments -- GitLab