Philippe 25/01/2024: remove unused NOUTDAD field from TOUTBAK structure

src/LIB/SURCOUCHE/src/modd_io.f90

@@ -78,7 +78,6 @@ 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)
-  INTEGER           :: NOUTDAD = -1 !Index of the corresponding dad file (file with same time)
   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

src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90

@@ -81,7 +81,6 @@ INTEGER           :: JOUT,IDX         ! Loop indices
 INTEGER           :: IRESP
 INTEGER, DIMENSION(:), ALLOCATABLE :: IBAK_STEP, IOUT_STEP
 ! Arrays to store list of backup/output steps (intermediate array)
-CHARACTER (LEN=4) :: YDADNUMBER       ! Character string for the DAD model file number
 REAL              :: ZTSTEP_RND
 !
 !
@@ -331,11 +330,9 @@ DO IMI = 1, NMODEL
   !Security check (if it happens, this part of the code should be exported outside of the IMI loop)
   IF (NDAD(IMI)>IMI) CALL PRINT_MSG(NVERB_FATAL,'IO','IO_Bakout_struct_prepare','NDAD(IMI)>IMI')
   IF (NDAD(IMI) == IMI .OR.  IMI == 1) THEN
-    OUT_MODEL(IMI)%TBACKUPN(:)%NOUTDAD = 0
     DO IPOS = 1,OUT_MODEL(IMI)%NBAK_NUMB
       OUT_MODEL(IMI)%TBACKUPN(IPOS)%TFILE%TDADFILE => OUT_MODEL(IMI)%TBACKUPN(IPOS)%TFILE !Points to itself
     END DO
-    OUT_MODEL(IMI)%TOUTPUTN(:)%NOUTDAD = 0
     DO IPOS = 1,OUT_MODEL(IMI)%NOUT_NUMB
       OUT_MODEL(IMI)%TOUTPUTN(IPOS)%TFILE%TDADFILE => OUT_MODEL(IMI)%TOUTPUTN(IPOS)%TFILE !Points to itself
     END DO
@@ -350,11 +347,8 @@ DO IMI = 1, NMODEL
         END IF
       END DO
       IF (IDX>0) THEN
-        OUT_MODEL(IMI)%TBACKUPN(IPOS)%NOUTDAD = IDX
-        WRITE (YDADNUMBER,FMT="('.',I3.3)") OUT_MODEL(IMI)%TBACKUPN(IPOS)%NOUTDAD
         OUT_MODEL(IMI)%TBACKUPN(IPOS)%TFILE%TDADFILE => OUT_MODEL(NDAD(IMI))%TBACKUPN(IDX)%TFILE
       ELSE
-        OUT_MODEL(IMI)%TBACKUPN(IPOS)%NOUTDAD = -1
         NULLIFY(OUT_MODEL(IMI)%TBACKUPN(IPOS)%TFILE%TDADFILE) !No dad file
       END IF
     END DO
@@ -368,11 +362,8 @@ DO IMI = 1, NMODEL
         END IF
       END DO
       IF (IDX>0) THEN
-        OUT_MODEL(IMI)%TOUTPUTN(IPOS)%NOUTDAD = IDX
-        WRITE (YDADNUMBER,FMT="('.',I3.3)") OUT_MODEL(IMI)%TOUTPUTN(IPOS)%NOUTDAD
         OUT_MODEL(IMI)%TOUTPUTN(IPOS)%TFILE%TDADFILE => OUT_MODEL(NDAD(IMI))%TOUTPUTN(IDX)%TFILE
       ELSE
-        OUT_MODEL(IMI)%TOUTPUTN(IPOS)%NOUTDAD = -1
         NULLIFY(OUT_MODEL(IMI)%TOUTPUTN(IPOS)%TFILE%TDADFILE) !No dad file
       END IF
     END DO