A Numerical Model of Reactor Fuel and Coolant Motions Following Pin Failure