region 4 saturation pressure as a functionx of temperature
function psat extends Modelica.Icons.Function; input Units.SI.Temperature T "temperature (K)"; output Units.SI.Pressure p_sat "pressure"; end psat;