Philippe 16/02/2018: remove unused variable IRESP (crash XLF due to non-initialized variable)

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