From 5bdb3bf753aa1eded4286b885c13a76301c7bd45 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 25 May 2018 10:37:00 +0200
Subject: [PATCH] Philippe 25/05/2018: IO: small correction for COVERxxx
comments
---
src/MNH/write_surf_mnh.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/write_surf_mnh.f90 b/src/MNH/write_surf_mnh.f90
index 2216f1f86..b151b5b47 100644
--- a/src/MNH/write_surf_mnh.f90
+++ b/src/MNH/write_surf_mnh.f90
@@ -662,7 +662,6 @@ IF (.NOT. GCOVER_PACKED) THEN
ICOVER=0
TZFIELD%CSTDNAME = ''
TZFIELD%CUNITS = ''
- TZFIELD%CCOMMENT = TRIM(HCOMMENT)
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
@@ -672,6 +671,7 @@ IF (.NOT. GCOVER_PACKED) THEN
TZFIELD%CMNHNAME = TRIM(YREC)
TZFIELD%CLONGNAME = TRIM(YREC)
TZFIELD%CDIR = YDIR
+ TZFIELD%CCOMMENT = 'X_Y_'//TRIM(YREC)
IF (OFLAG(JL2)) THEN
ICOVER=ICOVER+1
CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,ZWORK3D(1+NHALO:IIU-NHALO,1+NHALO:IJU-NHALO,ICOVER),KRESP)
--
GitLab