Specific heat capacity at constant presure in liquid region for given pressure and specific enthalpy
function cp1_Ph input Units.SI.AbsolutePressure p "Pressure"; input Units.SI.SpecificEnthalpy h "Specific enthalpy"; output Units.SI.SpecificHeatCapacity cp "Specific heat capacity at constant presure"; end cp1_Ph;