A heat transfer model for slug flow in a horizontal tube