wlwflux(i,j,bi,bj) = max(wlwflux(i,j,bi,bj),wlwflux0)
& wswflux0, wswdown0, wlwflux0, wlwdown0,
_RL wlwflux0
& wsnowprecip0, wlwflux0, wlwdown0, wevap0,
wlwflux0 = 0. _d 0