phase as a function of pressure and specific entropy
function phase_ps extends Modelica.Icons.Function; input Units.SI.Pressure p "pressure"; input Units.SI.SpecificEntropy s "specific entropy"; output Integer phase "true if in liquid or gas or supercritical region"; end phase_ps;