Philippe 19/09/2017: removed CFILES_STA variable (useless)

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

src/MNH/diag.f90

@@ -359,7 +359,6 @@ YSUFFIX='_DIAG'
 !
 CFILES(:) = '                         '
 NSTART_SUPP(:) = NUNDEF
-CFILES_STA(:) = 'INIT_SV'
 !
 LLIDAR=.FALSE.
 CVIEW_LIDAR='NADIR'

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 
 !