G.Delautier 15/11/2006 : modif for ncl files

src/MNH/write_diachro.f90

@@ -68,7 +68,8 @@
 !!                                            add the initialization of the dimensions of
 !!                                          MASK array in MASK case with write outside the 
 !!                                          routine.
-!!      J.Escobar       02/10/2015 modif for JPHEXT(JPVEXT) variable  
+!!      J.Escobar       02/10/2015 modif for JPHEXT(JPVEXT) variable 
+!!      D.Gazen+ G.Delautier 06/2016 modif for ncl files
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -440,14 +441,14 @@ DO J = 1,IP
 IF (PRESENT(OICP) .AND. PRESENT(OJCP)) THEN
   IF(HTYPE == 'CART' .AND. .NOT. OICP .AND. .NOT. OJCP) THEN
     CALL FMWRITBOX(HFILEDIA,YRECFM,HLUOUTDIA,'BUDGET',PVAR(:,:,:,:,:,J),KGRID(J), &
-                   YCOMMENT,KIL+JPHEXT,KIH+JPHEXT,KJL+JPHEXT,KJH+JPHEXT,IRESPDIA)
+                   HTITRE(J),KIL+JPHEXT,KIH+JPHEXT,KJL+JPHEXT,KJH+JPHEXT,IRESPDIA)
   ELSE
     CALL FMWRIT(HFILEDIA,YRECFM,HLUOUTDIA,'--',PVAR(:,:,:,:,:,J),KGRID(J),   &
-                ILENCH,YCOMMENT,IRESPDIA)
+                LEN(HTITRE(J)),HTITRE(J),IRESPDIA)
   ENDIF
 ELSE
   CALL FMWRIT(HFILEDIA,YRECFM,HLUOUTDIA,'--',PVAR(:,:,:,:,:,J),KGRID(J),   &
-                ILENCH,YCOMMENT,IRESPDIA)
+                LEN(HTITRE(J)),HTITRE(J),IRESPDIA)
 END IF
   IF (NVERB>=5) THEN
     WRITE(ILUOUTDIA,*)J,TRIM(YRECFM)