& , waqh0
waqh0 = 0.
waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0)
& watemp0, waqh0, wprecip0, wsnowprecip0, wwind0,
_RL waqh0
& watemp0, waqh0,
waqh0 = 0. _d 0