From 4c3982ed17de26a4a45be17d5e19069ef8e8c5fa 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

(cherry picked from commit 0cac8488a3ce4b127dc0c102b7b1e1fd0ad17778)
---
 src/MNH/ice4_nucleation_wrapper.f90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/MNH/ice4_nucleation_wrapper.f90 b/src/MNH/ice4_nucleation_wrapper.f90
index 0fbbd032a..8a2711fc7 100644
--- a/src/MNH/ice4_nucleation_wrapper.f90
+++ b/src/MNH/ice4_nucleation_wrapper.f90
@@ -88,6 +88,11 @@ REAL, DIMENSION(COUNT(PT<XTT .AND. LDMASK))  :: ZZT,      & ! Temperature
 GNEGT(:,:,:)=PT(:,:,:)<XTT .AND. LDMASK
 INEGT=0
 IF(COUNT(GNEGT)/=0) INEGT=ICE4_NUCLEATION_COUNTJV(GNEGT(:,:,:), KIT, KJT, KKT, SIZE(I1), I1(:), I2(:), I3(:))
+!
+ZB_TH(:) = 0.
+ZB_RV(:) = 0.
+ZB_RI(:) = 0.
+!
 PRVHENI_MR(:,:,:)=0.
 IF(INEGT>=1) THEN
   DO JL=1, INEGT
-- 
GitLab