From aab4ca0ae2f4603f76cf13734e83c7069630e039 Mon Sep 17 00:00:00 2001
From: Gaelle TANGUY <gaelle.tanguy@meteo.fr>
Date: Tue, 15 Nov 2016 10:48:54 +0100
Subject: [PATCH] G.Delautier 15/11/2006 : modif for ncl files
---
src/MNH/write_diachro.f90 | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index cbcb29eba..a007608e0 100644
--- a/src/MNH/write_diachro.f90
+++ b/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)
--
GitLab