Saturation pressure for given specific enthalpy
function psat1_h input Units.SI.SpecificEnthalpy h "Enthalpy"; output Units.SI.Pressure p "Pressure"; end psat1_h;