From 97e7cd82bf696d96d6176dfbe4b588504b11845a Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 8 Sep 2017 13:38:58 +0200
Subject: [PATCH] Philippe 08/09/2017: IO: bug correction: missing TZFIELD
metadata
---
src/MNH/write_lbn.f90 | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/src/MNH/write_lbn.f90 b/src/MNH/write_lbn.f90
index d9495811c..978b1d233 100644
--- a/src/MNH/write_lbn.f90
+++ b/src/MNH/write_lbn.f90
@@ -510,6 +510,13 @@ IF (NSV >=1) THEN
END IF
END IF
!
+ TZFIELD%CSTDNAME = ''
+ TZFIELD%CUNITS = 'kg kg-1'
+ TZFIELD%CDIR = 'XY'
+ TZFIELD%NGRID = 1
+ TZFIELD%NTYPE = TYPEREAL
+ TZFIELD%NDIMS = 3
+ !
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))
--
GitLab