_RL ArDvdrFac
ArDvdrFac = vfFacMom*1.
ArDvdrFac = 0.
& +( fVrDw(i,j) - fVrUp(i,j) )*rkSign*ArDvdrFac
fVerVkp(i,j) = ArDvdrFac*vrF(i,j)