From 18b0c108394088ebce60c389daedee23173ae539 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 19 Mar 2020 11:37:28 +0100
Subject: [PATCH] Maud L. 19/03/2020: minor correction
---
src/MNH/read_field.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index cd5b98626..3f3fc6382 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -798,7 +798,7 @@ IF (NSV_CHACEND>=NSV_CHACBEG) THEN
CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1) = UPCASE(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1))
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
- TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1))//'M'
+ TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1))//'T'
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3,A4)')'X_Y_Z_','CHAQ',JSV,' (M)'
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
@@ -1667,3 +1667,4 @@ END IF
!
!
END SUBROUTINE READ_FIELD
+
--
GitLab