Region 4 saturation temperature as a function of pressure
function tsat extends Modelica.Icons.Function; input SI.Pressure p "Pressure"; output SI.Temperature t_sat "Temperature"; end tsat;