From 85863ea4cc6491257067565b778f3d028eaa8f46 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 16 Feb 2018 15:56:36 +0100
Subject: [PATCH] Philippe 16/02/2018: remove unused variable IRESP (crash XLF
 due to non-initialized variable)

---
 src/MNH/write_diachro.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index 34a507302..c05658324 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -114,7 +114,7 @@ REAL,DIMENSION(:,:,:,:,:,:),  INTENT(IN),OPTIONAL :: PMASK
 !              ---------------
 CHARACTER(LEN=20) :: YCOMMENT
 CHARACTER(LEN=3)  :: YJ
-INTEGER   ::   ILENG, ILENTITRE, ILENUNITE, ILENCOMMENT, IRESP
+INTEGER   ::   ILENG, ILENTITRE, ILENUNITE, ILENCOMMENT
 INTEGER   ::   ILUOUTDIA
 INTEGER   ::   II, IJ, IK, IT, IN, IP, J, JJ
 INTEGER   ::   INTRAJT, IKTRAJX, IKTRAJY, IKTRAJZ
@@ -218,7 +218,7 @@ ENDIF
 ENDIF
 !
 IF (NVERB>=5) THEN
-  WRITE(ILUOUTDIA,*)' WRITE_DIACHRO: ',TRIM(TPDIAFILE%CNAME)//'.lfi',' IRESP=',IRESP
+  WRITE(ILUOUTDIA,*)' WRITE_DIACHRO: ',TRIM(TPDIAFILE%CNAME)//'.lfi'
 ENDIF
 !
 ! 1er enregistrement TYPE
-- 
GitLab