From 53e29fab78d60a949cfdc576e0f4c9af688cf9fb Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 28 May 2021 10:04:49 +0200
Subject: [PATCH] Quentin 28/05/2021: bugfix missing initilization of IMICRO
 leading to random value that may be > 0 and fail the packing

---
 src/MNH/rain_ice_red.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/rain_ice_red.f90 b/src/MNH/rain_ice_red.f90
index 5f347b729..ac0a25a26 100644
--- a/src/MNH/rain_ice_red.f90
+++ b/src/MNH/rain_ice_red.f90
@@ -677,7 +677,7 @@ ENDIF
 !  optimization by looking for locations where
 !  the microphysical fields are larger than a minimal value only !!!
 !
-!IMICRO=0
+IMICRO=0
 IF(KSIZE/=0) IMICRO=COUNTJV(ODMICRO(:,:,:), I1(:), I2(:), I3(:))
 !Packing
 IF(IMICRO>0) THEN
-- 
GitLab