diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index f646a41e5e9ddea531a336035cd0f8a0d8f125cc..d4e928027e121253fedd802d09d9adace9da5230 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -69,8 +69,7 @@
 !!                                          MASK array in MASK case with write outside the 
 !!                                          routine.
 !!      J.Escobar       02/10/2015 modif for JPHEXT(JPVEXT) variable  
-!!      P. Wautelet     09/06/2017: name of the variable added to the name of the written field
-!!                                  and better comment (true comment + units)
+!!      P. Wautelet     06-07/2017: improved comment (name of field + true comment + units)
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -434,9 +433,9 @@ DO J = 1,IP
   ELSE IF(J >= 100 .AND. J < 1000) THEN 
           WRITE(YJ,'(I3)')J
   ENDIF
-  YRECFM = TRIM(HGROUP)//'.'//TRIM(HTITRE(J))
+  YRECFM = TRIM(HGROUP)//'.PROC'//YJ
   ILENG = II*IJ*IK*IT*IN
-  YCOMMENT = TRIM(HCOMMENT(J))//' ('//TRIM(HUNITE(J))//')'
+  YCOMMENT = TRIM(HTITRE(J))//' - '//TRIM(HCOMMENT(J))//' ('//TRIM(HUNITE(J))//')'
   ILENCH = LEN_TRIM(YCOMMENT)
 !print *,' PVAR '
 !print *,' YJ ILENG YRECFM KGRID(J) ',YJ,ILENG,YRECFM,KGRID(J)