For `R_air`: ``` constant SI.SpecificHeatCapacity R_air = Modelica.Constants.R / 0.0289651159; ``` we should introduce the molar mass of air, if I am not mistaken.