A Simulation Code for Single Phase Geothermal Fields