From cab62676fea88a123695e6039cda912dceee1fa5 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 1 Oct 2020 16:44:36 +0200
Subject: [PATCH] Philippe 01/10/2020: bugfix: initialize XCLDFR and XRAINFR

(cherry picked from commit b584a9edca01472a01baaca3cf11266461f5716d)
---
 src/MNH/ini_modeln.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index 161742b5b..f40302c76 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -839,8 +839,8 @@ ELSE
 END IF
 !
 IF (NRR>1) THEN
-  ALLOCATE(XCLDFR(IIU,IJU,IKU))
-  ALLOCATE(XRAINFR(IIU,IJU,IKU))
+  ALLOCATE(XCLDFR(IIU,IJU,IKU));  XCLDFR (:, :, :) = 0.
+  ALLOCATE(XRAINFR(IIU,IJU,IKU)); XRAINFR(:, :, :) = 0.
 ELSE
   ALLOCATE(XCLDFR(0,0,0))
   ALLOCATE(XRAINFR(0,0,0))
-- 
GitLab