specificEntropy of Media.Air may be incorrect

[mwetter]

This is implemented as

redeclare function extends specificEntropy
"Return the specific entropy, only valid for phi<1"
protected
Modelica.SIunits.MoleFraction[2] Y "Molar fraction";
algorithm
Y := massToMoleFractions(
state.X, {steam.MM,dryair.MM});
s := specificHeatCapacityCp(state) * Modelica.Math.log(state.T/reference_T)
- Modelica.Constants.R *
sum(state.X[i]/MMX[i]*
Modelica.Math.log(max(Y[i], Modelica.Constants.eps)) for i in 1:2);

It appears that the last term should be multiplied by p/reference_p.
See also the implementation in Modelica.Media.Air.MoistAir.