Specific entropy at liquid saturation for given pressure
function s1sat_P input Units.SI.Pressure p "pressure"; output Units.SI.SpecificEntropy s "specific entropy"; end s1sat_P;