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