wswflux(i,j,bi,bj) = max(wswflux(i,j,bi,bj),wswflux0)
& wswflux0, wswdown0, wlwflux0, wlwdown0,
_RL wswflux0
& wprecip0, wswflux0, wswdown0, wwind0,
wswflux0 = 0. _d 0