The development of a CFD model of a submerged arc furnace for phosphorus production