diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index 34a5073023fd5532147c622f9a277494736eb722..c056583244665e75642076d39ecb486a1c0df4eb 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