From 66cc7393844f590036a407c1b1a9b8d91289de52 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 25 Jan 2024 11:08:35 +0100
Subject: [PATCH] Philippe 25/01/2024: remove unused NOUTDAD field from TOUTBAK
structure
---
src/LIB/SURCOUCHE/src/modd_io.f90 | 1 -
src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 9 ---------
2 files changed, 10 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/modd_io.f90 b/src/LIB/SURCOUCHE/src/modd_io.f90
index 021fff03d..66a41ade0 100644
--- a/src/LIB/SURCOUCHE/src/modd_io.f90
+++ b/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
diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index 01639cba3..d2054a233 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/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
--
GitLab