diff --git a/phys/module_sf_urban.F b/phys/module_sf_urban.F index 42806772c3..048d27dcac 100644 --- a/phys/module_sf_urban.F +++ b/phys/module_sf_urban.F @@ -915,7 +915,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 @@ -961,7 +961,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