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