A fourth order compact scheme for heat transfer problem in porous media. (February 2016)