Finite-difference model of two-dimensional, single, and two-phase heat transport in a porous medium - Version I - Faust, Charles; Mercer, James (Open-File Report, 1977)