From a3244c9d89ea63cfaeddadba9bacb7f7c0e5961b Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Tue, 12 Sep 2017 13:32:03 +0200 Subject: [PATCH] Philippe 12/09/2017: IO: improved dummy fields --- src/MNH/read_dummy_gr_fieldn.f90 | 8 ++++---- src/MNH/write_dummy_gr_fieldn.f90 | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/MNH/read_dummy_gr_fieldn.f90 b/src/MNH/read_dummy_gr_fieldn.f90 index 314b6f319..2a65668c5 100644 --- a/src/MNH/read_dummy_gr_fieldn.f90 +++ b/src/MNH/read_dummy_gr_fieldn.f90 @@ -200,14 +200,14 @@ IF (.NOT. ASSOCIATED(XDUMMY_GR_FIELDS)) & ALLOCATE(XDUMMY_GR_FIELDS(SIZE(XXHAT),SIZE(XYHAT),NDUMMY_GR_NBR)) ! DO JDUMMY=1,NDUMMY_GR_NBR - WRITE(YRECFM,'(A8,I3.3,A5)') 'DUMMY_GR',JDUMMY,' ' + WRITE(YRECFM,'(A8,I3.3)') 'DUMMY_GR',JDUMMY TZFIELD%CMNHNAME = TRIM(YRECFM) TZFIELD%CSTDNAME = '' TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(YRECFM) TZFIELD%CUNITS = '' TZFIELD%CDIR = 'XY' ! Expected comment is not known but is in the following form: - ! 'X_Y_'//YRECFM//YSTRING20//YSTRING03 + ! 'X_Y_'//TRIM(YRECFM)//YSTRING20//YSTRING03 TZFIELD%CCOMMENT = '' TZFIELD%NGRID = 4 TZFIELD%NTYPE = TYPEREAL @@ -223,8 +223,8 @@ DO JDUMMY=1,NDUMMY_GR_NBR ENDIF XDUMMY_GR_FIELDS(:,:,JDUMMY) = ZWORK(IIINF:IISUP,IJINF:IJSUP) ! - YSTRING20=TZFIELD%CCOMMENT( 4+LEN(YRECFM)+1 : 4+LEN(YRECFM)+LEN(YSTRING20) ) - YSTRING03=TZFIELD%CCOMMENT( 4+LEN(YRECFM)+LEN(YSTRING20)+1 : 4+LEN(YRECFM)+LEN(YSTRING20)+LEN(YSTRING03) ) + YSTRING20=TZFIELD%CCOMMENT( 4+LEN_TRIM(YRECFM)+1 : 4+LEN_TRIM(YRECFM)+LEN(YSTRING20) ) + YSTRING03=TZFIELD%CCOMMENT( 4+LEN_TRIM(YRECFM)+LEN(YSTRING20)+1 : 4+LEN_TRIM(YRECFM)+LEN(YSTRING20)+LEN(YSTRING03) ) ! CDUMMY_GR_NAME(JDUMMY) = YSTRING20 CDUMMY_GR_AREA(JDUMMY) = YSTRING03 diff --git a/src/MNH/write_dummy_gr_fieldn.f90 b/src/MNH/write_dummy_gr_fieldn.f90 index a4e06fee0..8c87543aa 100644 --- a/src/MNH/write_dummy_gr_fieldn.f90 +++ b/src/MNH/write_dummy_gr_fieldn.f90 @@ -120,7 +120,7 @@ TZFIELD%NDIMS = 0 CALL IO_WRITE_FIELD(TPFILE,TZFIELD,NDUMMY_GR_NBR) ! DO JDUMMY=1,NDUMMY_GR_NBR - WRITE(YRECFM,'(A8,I3.3,A5)') 'DUMMY_GR',JDUMMY,' ' + WRITE(YRECFM,'(A8,I3.3)') 'DUMMY_GR',JDUMMY YSTRING20=CDUMMY_GR_NAME(JDUMMY) YSTRING03=CDUMMY_GR_AREA(JDUMMY) ! -- GitLab