From 72baafd3cfd696a1043751f6cd72119c0d2979e0 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 4 Jul 2017 13:39:41 +0200
Subject: [PATCH] Philippe 04/07/2017: IO: reverted name of field to old
behavior (kept improved comment)
---
src/MNH/write_diachro.f90 | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index f646a41e5..d4e928027 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)
--
GitLab