A fully implicit finite difference scheme for velocity and temperature coupled solutions of polymer melt flow