From b7fb4da66dd74a679db7487cd28953d9657b3994 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 19 Sep 2017 09:24:51 +0200
Subject: [PATCH] Philippe 19/09/2017: removed CFILES_STA variable (useless)
---
src/MNH/compute_r00.f90 | 3 +--
src/MNH/diag.f90 | 1 -
src/MNH/modd_sto_file.f90 | 3 ---
3 files changed, 1 insertion(+), 6 deletions(-)
diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90
index b31a7a659..e7ab5e32a 100644
--- a/src/MNH/compute_r00.f90
+++ b/src/MNH/compute_r00.f90
@@ -162,8 +162,7 @@ ENDIF
!have been reinitialized
NFILES=0
DO JFILECUR=IFILECUR+1,100
- IF (LEN_TRIM(CFILES(JFILECUR)) /= 0 .AND. &
- CFILES_STA(JFILECUR) == 'INIT_SV') THEN
+ IF (LEN_TRIM(CFILES(JFILECUR)) /= 0) THEN
NFILES= NFILES +1
NBRFILES(NFILES)=JFILECUR ! contains the number of the files where
! the Lag. tracers have been restarted
diff --git a/src/MNH/diag.f90 b/src/MNH/diag.f90
index 12b94a11d..42a04b4aa 100644
--- a/src/MNH/diag.f90
+++ b/src/MNH/diag.f90
@@ -359,7 +359,6 @@ YSUFFIX='_DIAG'
!
CFILES(:) = ' '
NSTART_SUPP(:) = NUNDEF
-CFILES_STA(:) = 'INIT_SV'
!
LLIDAR=.FALSE.
CVIEW_LIDAR='NADIR'
diff --git a/src/MNH/modd_sto_file.f90 b/src/MNH/modd_sto_file.f90
index 953bf0495..901623324 100644
--- a/src/MNH/modd_sto_file.f90
+++ b/src/MNH/modd_sto_file.f90
@@ -12,9 +12,6 @@
MODULE MODD_STO_FILE
!################
CHARACTER (LEN=28), SAVE :: CFILES(100) ! names of the files to be treated
-CHARACTER (LEN=28), SAVE :: CFILES_STA(100) ! status of these files 'INIT_SV'
- ! if a restart of the lagrangian
- ! tracers has been performed
INTEGER , SAVE :: NSTART_SUPP(100) ! supplementary starts
! for the lagrangian trajectories
!
--
GitLab