Fix unit error in TestOnly.MoistAir

Note that there is currently no Units.SI.PressureRate.
casella · Apr 6, 2023 · edf832c · edf832c
1 parent 64b1f57
commit edf832c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/ModelicaTest/Media.mo b/ModelicaTest/Media.mo
@@ -919,7 +919,9 @@ is given to compare the approximation.
       extends Modelica.Icons.Example;
       package Medium = Modelica.Media.Air.MoistAir "Medium model";
       SI.Temperature T = 273.15 + 100;
-      SI.AbsolutePressure p = 2e5 - 1.5e5*time;
+      parameter SI.AbsolutePressure p0 = 2e5 "p at time 0";
+      parameter Real pRate(unit = "Pa/s") = -1.5e5 "p's rate of change";
+      SI.AbsolutePressure p = p0 + pRate*time;
       Medium.MassFraction X[Medium.nX] = {0.05,0.95};
       Medium.ThermodynamicState state = Medium.setState_pTX(p,T,X);
       SI.SpecificEntropy s = Medium.specificEntropy(state);