From 6cc4cd9f1edb4d823a8ba6d84358b04a08b1305b Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 10 Feb 2023 14:55:22 +0100
Subject: [PATCH] Philippe 10/02/2023: bugfix: BLAZE: allocate all arrays to
 zero-size if not used (4 of them were missing)

---
 src/MNH/ini_modeln.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index c8511bd6f..d1c00bae7 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -2102,6 +2102,10 @@ ELSE
   ALLOCATE(XFMWALKIG(0,0,0))
   ALLOCATE(XFMFLUXHDH(0,0,0))
   ALLOCATE(XFMFLUXHDW(0,0,0))
+  ALLOCATE(XFMHWS(0,0,0))
+  ALLOCATE(XFMWINDU(0,0,0))
+  ALLOCATE(XFMWINDV(0,0,0))
+  ALLOCATE(XFMWINDW(0,0,0))
   ALLOCATE(XGRADLSPHIX(0,0,0))
   ALLOCATE(XGRADLSPHIY(0,0,0))
   ALLOCATE(XFIREWIND(0,0,0))
-- 
GitLab