Saturated vapour pressure at any temperature
function SaturatedVapourPressure input Real TSat(unit = "degC", displayUnit = "degC", nominal = 20) "Saturation temperature"; output Modelica.Units.SI.Pressure pSat(displayUnit = "Pa", nominal = 1e5) "Saturation pressure"; end SaturatedVapourPressure;