Philippe 04/07/2017: IO: reverted name of field to old behavior (kept improved comment)
authorPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Tue, 4 Jul 2017 11:39:41 +0000 (13:39 +0200)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Tue, 4 Jul 2017 11:39:41 +0000 (13:39 +0200)
src/MNH/write_diachro.f90

index f646a41..d4e9280 100644 (file)
@@ -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)