function WaterVapourPressure input Real TSat(unit = "degC", displayUnit = "degC", nominal = 20) "Saturation temperature"; input Real RH(nominal = 70) "(0...100) %, Relative humidity"; output Modelica.Units.SI.Pressure VP "Water vapour pressure"; end WaterVapourPressure;