From dd5c93952d1203d686faf4609353a5ac7e2a22a2 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 16 Feb 2024 15:13:15 +0100
Subject: [PATCH] Philippe 16/02/2024: remove unused TOUTBAK datatype
---
src/LIB/SURCOUCHE/src/modd_io.f90 | 10 ----------
src/LIB/SURCOUCHE/src/mode_io_field_write.f90 | 2 +-
src/MNH/modd_outn.f90 | 1 -
3 files changed, 1 insertion(+), 12 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/modd_io.f90 b/src/LIB/SURCOUCHE/src/modd_io.f90
index e6a1eba10..4a2e25727 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 98f6eb027..865ea7b56 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 a06991e76..b48907563 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
--
GitLab