uBarC = 0.5 _d 0
& ( angleCosC(i,j,bi,bj)*uBarC
& *( angleSinC(i,j,bi,bj)*uBarC
_RL tmpFac, uBarC, vBarC