From 38a781c2be88b4e8856979c4e95b1df6377b9574 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 11 Apr 2017 15:40:24 +0200
Subject: [PATCH] Philippe 11/04/2017: removed unused TDIAFILE in SPECTRE

---
 src/MNH/ini_spectren.f90 | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/src/MNH/ini_spectren.f90 b/src/MNH/ini_spectren.f90
index 09d5f5a77..a2f68bdbe 100644
--- a/src/MNH/ini_spectren.f90
+++ b/src/MNH/ini_spectren.f90
@@ -945,24 +945,6 @@ END IF
 !               ----------------------------
 !
 WRITE(COUTFILE,'(A,".",I1,".",A)') CEXP,KMI,TRIM(ADJUSTL(CSEG))
-WRITE(TDIAFILE%CNAME, '(A,".",I1,".",A)') CEXP,KMI,TRIM(ADJUSTL(CSEG))//'.000'
-TDIAFILE%CTYPE = 'DIACHRONIC'
-IF (LIOCDF4) THEN
-  IF (.NOT.LLFIOUT) THEN
-    TDIAFILE%CFORMAT = 'NETCDF4'
-  ELSE
-    TDIAFILE%CFORMAT = 'LFICDF4'
-    TDIAFILE%NLFINPRAR = 50
-  END IF
-ELSE IF (LLFIOUT) THEN
-  TDIAFILE%CFORMAT = 'LFI'
-  TDIAFILE%NLFINPRAR = 50
-ELSE
-  CALL PRINT_MSG(NVERB_FATAL,'IO','INI_SPECTRE_n','unknown backup/output fileformat')
-ENDIF
-TDIAFILE%CMODE      = 'WRITE'
-TDIAFILE%NLFITYPE   = 1
-TDIAFILE%NLFIVERB   = NVERB
 
 !-------------------------------------------------------------------------------
 !
-- 
GitLab