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