Skip to content
Snippets Groups Projects
Commit ffb92335 authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

C.Lac 26/04/2016 : add comment

parent 542deee6
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/ini_rain_c2r2.f90
+ 3
− 2
View file @ ffb92335
...@@ -200,10 +200,11 @@ IF (ALLOCATED(XRTMIN)) RETURN ! In case of nesting microphysics constants of ...@@ -200,10 +200,11 @@ IF (ALLOCATED(XRTMIN)) RETURN ! In case of nesting microphysics constants of
! !
XAC = (XPI/6.0)*XRHOLW XAC = (XPI/6.0)*XRHOLW
XBC = 3.0 XBC = 3.0
! CAREFUL : FOR FOG WITH KHKO, TAKE THE 2ND FORMULA
IF (HCLOUD=='KHKO') THEN 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 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 ENDIF
XDC = 2.0 XDC = 2.0
! !
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme