Specific entropy in vapor region for given pressure and specific enthalpy
function s2_Ph input Units.SI.AbsolutePressure p "Pressure"; input Units.SI.SpecificEnthalpy h "Specific enthalpy"; output Units.SI.SpecificEntropy s "Specific entropy"; end s2_Ph;