Deleted subroutine correct_vel