diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90 index b31a7a65961f5d2fb407fc7036fd0d0319903960..e7ab5e32a99ef6a8d6c42077e91dbb8d46a3f127 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 12b94a11d3dfa2f059a8f89bd2bc4897320cb635..42a04b4aace6afd6e59035a43b90ff403ca3da77 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 953bf0495903ee8dc9f7808a5bedcaa0142c188c..9016233244e6a8b1307ab6a6f1bcc0adf6911e17 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 !