foo5=diffkrd
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) +
_EXCH_XYZ_RL( diffkr, mythid)
& xx_diffkr_dummy, boundsVec, diffkr, maskc, paramSmooth,