From 5ac50b69fb4a745c3cbc1ee2fe2fd735c2fffdc1 Mon Sep 17 00:00:00 2001 From: joshi994 Date: Tue, 14 May 2024 16:37:50 -0400 Subject: [PATCH] Parameters used in calculating the natural part of the heat transfer coefficient for the upward/downward transport of heat are corrected. --- phys/module_sf_bem.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/phys/module_sf_bem.F b/phys/module_sf_bem.F index e693e7c6d2..d9ce496f31 100644 --- a/phys/module_sf_bem.F +++ b/phys/module_sf_bem.F @@ -889,7 +889,7 @@ subroutine hsfluxpv(nz,n,bl,bw,albr,rs,swddif,emr,rl,tr,tair,sigma,hspv,eppv,pv_ uroof=(uout(n+1)**2+vout(n+1)**2)**0.5 deltat=tpv-tair(n+1) hf=2.5*(40./100.*uroof)**(0.5) - hc=9.842*abs(deltat)**(1./3.)/(7.283-abs(cos(tiltangle))) + hc=9.482*abs(deltat)**(1./3.)/(7.238-abs(cos(tiltangle))) hup=sqrt(hc**2.+(hf)**2.) hc=1.810*abs(deltat)**(1./3.)/(1.382+abs(cos(tiltangle))) hdown=sqrt(hc**2.+(hf)**2.)