C.Lac 26/04/2016 : add comment

ffb92335 · Gaelle Tanguy · WAUTELET Philippe · 542deee6 · ffb92335
Commit ffb92335 authored 8 years ago by Gaelle Tanguy Committed by WAUTELET Philippe 8 years ago
--- 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
 !