From f929a6567bd0a19d921c14930f998e2523a1f678 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 26 Mar 2018 11:36:00 +0200
Subject: [PATCH] Philippe 26/03/2018: IO: bug correction: missing write for
THHA (thickness of hail)
---
src/MNH/write_lfifm1_for_diag.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 99fcf9887..6e8dab3e7 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -2912,6 +2912,7 @@ IF (LTHW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
END IF
!
--
GitLab