From 5438d0e3c89e16bb0ca961d26ec6e355518b0f6d Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Fri, 25 May 2018 16:16:43 +0200
Subject: [PATCH] Gaelle 25/5/18 : bug WHERE division par 0

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

diff --git a/src/MNH/rain_ice.f90 b/src/MNH/rain_ice.f90
index d198732cd..1423abd62 100644
--- a/src/MNH/rain_ice.f90
+++ b/src/MNH/rain_ice.f90
@@ -644,7 +644,7 @@ IF( IMICRO >= 0 ) THEN
 
   ELSEIF (HSUBG_AUCV == 'CLFR') THEN
     !Cloud water is only in the cloudy part and entirely in low or high part
-      WHERE (ZCF(:) > 0. .AND. ZRCT(:)/ZCF(:) > ZRCRAUTC(:))
+      WHERE (ZCF(:) > 0. .AND. ZRCT(:) > ZRCRAUTC(:)*ZCF(:))
         ZHLC_HCF(:) = ZCF(:)
         ZHLC_LCF(:) = 0.0
         ZHLC_HRC(:) = ZRCT(:)
-- 
GitLab