From 7724bc08143ccd49747fb9e8be70fad0c141564b Mon Sep 17 00:00:00 2001 From: joshi994 Date: Thu, 29 Aug 2024 09:56:35 -0400 Subject: [PATCH] Reflected diffuse and direct shortwave radiation terms are added to the wall radiation abalance --- phys/module_sf_urban.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/phys/module_sf_urban.F b/phys/module_sf_urban.F index 193e1cfda1..a409d7a0ee 100644 --- a/phys/module_sf_urban.F +++ b/phys/module_sf_urban.F @@ -916,7 +916,7 @@ SUBROUTINE urban(LSOLAR, & ! L SG1=SX*VFGS*(1.-ALBG) SB1=SX*VFWS*(1.-ALBB) SG2=SB1*ALBB/(1.-ALBB)*VFGW*(1.-ALBG) - SB2=SG1*ALBG/(1.-ALBG)*VFWG*(1.-ALBB) + SB2=SG1*ALBG/(1.-ALBG)*VFWG*(1.-ALBB) + SB1*ALBB*VFWW ELSE ! shadow effects model @@ -962,7 +962,7 @@ SUBROUTINE urban(LSOLAR, & ! L SG1=SD*(RW-SLX)/RW*(1.-ALBG)+SQ*VFGS*(1.-ALBG) SB1=SD*SLX/W*(1.-ALBB)+SQ*VFWS*(1.-ALBB) SG2=SB1*ALBB/(1.-ALBB)*VFGW*(1.-ALBG) - SB2=SG1*ALBG/(1.-ALBG)*VFWG*(1.-ALBB) + SB2=SG1*ALBG/(1.-ALBG)*VFWG*(1.-ALBB) + SB1*ALBB*VFWW END IF