diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index f4bf016b8d1123dd4d025a0532333ca0f333c7b3..0569d601fe624d93003b2f292fee51d5e59e31c8 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -70,8 +70,7 @@
 !!                                          routine.
 !!      J.Escobar       02/10/2015 modif for JPHEXT(JPVEXT) variable  
 !!      D.Gazen+ G.Delautier 06/2016 modif for ncl files
-!!      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
@@ -435,9 +434,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)