Update GeoTherm.f90