_RL wVelBottomOverride
wVelBottomOverride=1.
IF (k.EQ.Nr) wVelBottomOverride=0.
& *rVel2wUnit(kp1)*wVelBottomOverride