From ffb9233539d80b16c55199fd3e500699f686ffc3 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Tue, 26 Apr 2016 11:44:19 +0000
Subject: [PATCH] C.Lac 26/04/2016 : add comment

---
 src/MNH/ini_rain_c2r2.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/MNH/ini_rain_c2r2.f90 b/src/MNH/ini_rain_c2r2.f90
index e8085f2c1..0e9168973 100644
--- a/src/MNH/ini_rain_c2r2.f90
+++ b/src/MNH/ini_rain_c2r2.f90
@@ -200,10 +200,11 @@ IF (ALLOCATED(XRTMIN)) RETURN     ! In case of nesting microphysics constants of
 !
 XAC = (XPI/6.0)*XRHOLW
 XBC = 3.0
+! CAREFUL : FOR FOG WITH KHKO, TAKE THE 2ND FORMULA
 IF (HCLOUD=='KHKO') THEN
-XCC = XRHOLW*XG/(18.0*1.816E-5) ! Stokes flow (Pruppacher p 322 for T=293K)
+ XCC = XRHOLW*XG/(18.0*1.816E-5) ! Stokes flow (Pruppacher p 322 for T=293K)
 ELSE
-XCC = XRHOLW*XG/(18.0*1.7E-5) ! Stokes flow (Pruppacher p 322 for T=273K)
+ XCC = XRHOLW*XG/(18.0*1.7E-5) ! Stokes flow (Pruppacher p 322 for T=273K)
 ENDIF
 XDC = 2.0
 !
-- 
GitLab