& *maskC(i,j,kp1,bi_arg,bj_arg)
& *maskC(i,j,km2,bi_arg,bj_arg)
I bi_arg,bj_arg,k,dTarg,
wT(i,j) = maskC(i,j,kM1,bi_arg,bj_arg)*(
INTEGER bi_arg,bj_arg,k
bj=bj_arg
wFld = rTrans(i,j)*recip_rA(i,j,bi_arg,bj_arg)