diff --git a/src/LIB/SURCOUCHE/src/modd_io.f90 b/src/LIB/SURCOUCHE/src/modd_io.f90 index e6a1eba10e7676b476bbe7907284b798ec6d7e32..4a2e257273a11a797f7d021ed9ee47fc0b2068fb 100644 --- a/src/LIB/SURCOUCHE/src/modd_io.f90 +++ b/src/LIB/SURCOUCHE/src/modd_io.f90 @@ -81,16 +81,6 @@ TYPE TFILE_ELT TYPE(TFILEDATA), POINTER :: TFILE => NULL() END TYPE TFILE_ELT -!Structure describing the characteristics of an output or a backup -TYPE TOUTBAK - INTEGER :: NID = -1 !Backup number - INTEGER :: NSTEP !Timestep number - REAL :: XTIME !Time from start of the segment (in seconds and rounded to a timestep) - TYPE(TFILEDATA), POINTER :: TFILE => NULL() !Corresponding file - TYPE(TFILE_ELT), DIMENSION(:) ,ALLOCATABLE :: TFILE_IOZ !Corresponding Z-split files - INTEGER,DIMENSION(:), POINTER :: NFIELDLIST => NULL() !List of the fields to read or write -END TYPE TOUTBAK - !Structure describing the characteristics of a file TYPE TFILEDATA CHARACTER(LEN=NFILENAMELGTMAX) :: CNAME = '' !Filename diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 index 98f6eb0273060ce334b3c921b643d55e03664ddd..865ea7b56c8c0f4ae69b5d08acdd8e3924428d1f 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 @@ -29,7 +29,7 @@ MODULE MODE_IO_FIELD_WRITE use modd_field, only: tfieldlist, tfieldmetadata, tfieldmetadata_base, & TYPECHAR, TYPEDATE, TYPEINT, TYPELOG, TYPEREAL - USE MODD_IO, ONLY: TFILEDATA, TOUTBAK + USE MODD_IO, ONLY: TFILEDATA USE MODD_MPIF use modd_parameters, only: NFILENAMELGTMAX, NMNHNAMELGTMAX use modd_precision, only: MNHINT_MPI, MNHREAL_MPI, MNHTIME diff --git a/src/MNH/modd_outn.f90 b/src/MNH/modd_outn.f90 index a06991e76e572306881cb214b40a178921b37199..b4890756327080e318f75a769af663896c30b5fa 100644 --- a/src/MNH/modd_outn.f90 +++ b/src/MNH/modd_outn.f90 @@ -40,7 +40,6 @@ ! ! USE MODD_PARAMETERS, ONLY: JPMODELMAX, NNEGUNDEF -USE MODD_IO, ONLY: TOUTBAK IMPLICIT NONE