From 0cac8488a3ce4b127dc0c102b7b1e1fd0ad17778 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 13 Nov 2018 10:08:42 +0100
Subject: [PATCH] Philippe 13/11/2018: bug: variables not initialised in
 ICE4_NUCLEATION_WRAPPER

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

diff --git a/src/MNH/ice4_nucleation_wrapper.f90 b/src/MNH/ice4_nucleation_wrapper.f90
index d23cfd23e..a8a99c998 100644
--- a/src/MNH/ice4_nucleation_wrapper.f90
+++ b/src/MNH/ice4_nucleation_wrapper.f90
@@ -116,6 +116,10 @@ ALLOCATE(ZB_TH(INEGT))
 ALLOCATE(ZB_RV(INEGT))
 ALLOCATE(ZB_RI(INEGT))
 !
+ZB_TH(:) = 0.
+ZB_RV(:) = 0.
+ZB_RI(:) = 0.
+!
 IF(INEGT>0) INEGT_TMP=ICE4_NUCLEATION_COUNTJV(GNEGT(:,:,:), KIT, KJT, KKT, SIZE(I1), I1(:), I2(:), I3(:))
 !
 PRVHENI_MR(:,:,:)=0.
-- 
GitLab