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