wevap(i,j,bi,bj) = max(wevap(i,j,bi,bj),wevap0)
& wevap0, wapressure0, wrunoff0, wkapredi0,
_RL wevap0
& wsnowprecip0, wlwflux0, wlwdown0, wevap0,
wevap0 = 0. _d 0