From dd794e12d99b0472ca56d2a6376ab09e49b15115 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 23 May 2018 16:22:27 +0200
Subject: [PATCH] Philippe 23/05/2018: IO: minor: COVERxxx comments are known
---
src/MNH/read_surf_mnh.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/read_surf_mnh.f90 b/src/MNH/read_surf_mnh.f90
index 23a6d28e3..e2a5d8497 100644
--- a/src/MNH/read_surf_mnh.f90
+++ b/src/MNH/read_surf_mnh.f90
@@ -827,7 +827,6 @@ IF (.NOT. GCOVER_PACKED) THEN
ICOVER=0
TZFIELD%CSTDNAME = ''
TZFIELD%CUNITS = ''
- TZFIELD%CCOMMENT = '' !Expected comment is not known
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
@@ -836,6 +835,7 @@ IF (.NOT. GCOVER_PACKED) THEN
WRITE(YREC,'(A5,I3.3)') 'COVER',JL2
TZFIELD%CMNHNAME = TRIM(YREC)
TZFIELD%CLONGNAME = TRIM(YREC)
+ TZFIELD%CCOMMENT = 'X_Y_'//TRIM(YREC)
TZFIELD%CDIR = YDIR
IF (OFLAG(JL2)) THEN
ICOVER=ICOVER+1
@@ -1025,7 +1025,7 @@ IF (.NOT. GCOVER_PACKED) THEN
TZFIELD%CLONGNAME = TRIM(YREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = YDIR1
- TZFIELD%CCOMMENT = '' !Expected comment is not known
+ TZFIELD%CCOMMENT = 'X_Y_'//TRIM(YREC)
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
--
GitLab