kwrk = 1
do k = kwrk, ncvarnrmax(grdchkvarindex)
integer iwrk, jwrk, kwrk
kwrk = klocmem (ichknum-1)
iwettot = iwetsum(biwrk,bjwrk,kwrk)