Skip to content

Commit

Permalink
Make type explicit (#4393)
Browse files Browse the repository at this point in the history
  • Loading branch information
@beutlich
beutlich committed Aug 19, 2024
1 parent c58f0c3 commit 35ad28d
Showing 1 changed file with 27 additions and 27 deletions.
54 changes: 27 additions & 27 deletions Modelica/Media/package.mo
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2819,7 +2819,7 @@ points, e.g., when an isentropic reference state is computed.
s2 = Medium.specificEntropy_pTX(
p,
Ts,
fill(0, 0));
fill(0.0, 0));
assert(abs(h1 - h2) < 1e-3, "Inverse for h not correctly computed");
assert(abs(s1 - s2) < 1e-3, "Inverse for s not correctly computed");
annotation (experiment(StopTime=1));
Expand Down Expand Up @@ -4605,7 +4605,7 @@ are described in
state := setState_pTX(
p,
T,
fill(0, 0));
fill(0.0, 0));
end setState_pT;

replaceable function setState_ph "Return thermodynamic state from p and h"
Expand All @@ -4617,7 +4617,7 @@ are described in
state := setState_phX(
p,
h,
fill(0, 0));
fill(0.0, 0));
end setState_ph;

replaceable function setState_ps "Return thermodynamic state from p and s"
Expand All @@ -4629,7 +4629,7 @@ are described in
state := setState_psX(
p,
s,
fill(0, 0));
fill(0.0, 0));
end setState_ps;

replaceable function setState_dT "Return thermodynamic state from d and T"
Expand All @@ -4641,7 +4641,7 @@ are described in
state := setState_dTX(
d,
T,
fill(0, 0));
fill(0.0, 0));
end setState_dT;

replaceable function density_ph "Return density from p and h"
Expand All @@ -4653,7 +4653,7 @@ are described in
d := density_phX(
p,
h,
fill(0, 0));
fill(0.0, 0));
end density_ph;

replaceable function temperature_ph "Return temperature from p and h"
Expand All @@ -4665,7 +4665,7 @@ are described in
T := temperature_phX(
p,
h,
fill(0, 0));
fill(0.0, 0));
end temperature_ph;

replaceable function pressure_dT "Return pressure from d and T"
Expand All @@ -4677,7 +4677,7 @@ are described in
p := pressure(setState_dTX(
d,
T,
fill(0, 0)));
fill(0.0, 0)));
end pressure_dT;

replaceable function specificEnthalpy_dT
Expand All @@ -4690,7 +4690,7 @@ are described in
h := specificEnthalpy(setState_dTX(
d,
T,
fill(0, 0)));
fill(0.0, 0)));
end specificEnthalpy_dT;

replaceable function specificEnthalpy_ps
Expand All @@ -4703,7 +4703,7 @@ are described in
h := specificEnthalpy_psX(
p,
s,
fill(0, 0));
fill(0.0, 0));
end specificEnthalpy_ps;

replaceable function temperature_ps "Return temperature from p and s"
Expand All @@ -4715,7 +4715,7 @@ are described in
T := temperature_psX(
p,
s,
fill(0, 0));
fill(0.0, 0));
end temperature_ps;

replaceable function density_ps "Return density from p and s"
Expand All @@ -4727,7 +4727,7 @@ are described in
d := density_psX(
p,
s,
fill(0, 0));
fill(0.0, 0));
end density_ps;

replaceable function specificEnthalpy_pT
Expand All @@ -4740,7 +4740,7 @@ are described in
h := specificEnthalpy_pTX(
p,
T,
fill(0, 0));
fill(0.0, 0));
end specificEnthalpy_pT;

replaceable function density_pT "Return density from p and T"
Expand All @@ -4752,7 +4752,7 @@ are described in
d := density(setState_pTX(
p,
T,
fill(0, 0)));
fill(0.0, 0)));
end density_pT;

redeclare replaceable function massFraction "Return independent mass fractions (if any)"
Expand Down Expand Up @@ -5664,7 +5664,7 @@ to the above list of assumptions</li>
state := setState_pTX(
p,
T,
fill(0, 0),
fill(0.0, 0),
phase);
end setState_pT;

Expand All @@ -5680,7 +5680,7 @@ to the above list of assumptions</li>
state := setState_phX(
p,
h,
fill(0, 0),
fill(0.0, 0),
phase);
end setState_ph;

Expand All @@ -5696,7 +5696,7 @@ to the above list of assumptions</li>
state := setState_psX(
p,
s,
fill(0, 0),
fill(0.0, 0),
phase);
end setState_ps;

Expand All @@ -5712,7 +5712,7 @@ to the above list of assumptions</li>
state := setState_dTX(
d,
T,
fill(0, 0),
fill(0.0, 0),
phase);
end setState_dT;

Expand Down Expand Up @@ -5765,7 +5765,7 @@ to the above list of assumptions</li>
d := density_phX(
p,
h,
fill(0, 0),
fill(0.0, 0),
phase);
end density_ph;

Expand All @@ -5781,7 +5781,7 @@ to the above list of assumptions</li>
T := temperature_phX(
p,
h,
fill(0, 0),
fill(0.0, 0),
phase);
end temperature_ph;

Expand All @@ -5796,7 +5796,7 @@ to the above list of assumptions</li>
p := pressure(setState_dTX(
d,
T,
fill(0, 0),
fill(0.0, 0),
phase));
end pressure_dT;

Expand All @@ -5812,7 +5812,7 @@ to the above list of assumptions</li>
h := specificEnthalpy(setState_dTX(
d,
T,
fill(0, 0),
fill(0.0, 0),
phase));
end specificEnthalpy_dT;

Expand All @@ -5828,7 +5828,7 @@ to the above list of assumptions</li>
h := specificEnthalpy_psX(
p,
s,
fill(0, 0));
fill(0.0, 0));
end specificEnthalpy_ps;

redeclare replaceable function temperature_ps
Expand All @@ -5843,7 +5843,7 @@ to the above list of assumptions</li>
T := temperature_psX(
p,
s,
fill(0, 0),
fill(0.0, 0),
phase);
end temperature_ps;

Expand All @@ -5858,7 +5858,7 @@ to the above list of assumptions</li>
d := density_psX(
p,
s,
fill(0, 0),
fill(0.0, 0),
phase);
end density_ps;

Expand All @@ -5874,7 +5874,7 @@ to the above list of assumptions</li>
h := specificEnthalpy_pTX(
p,
T,
fill(0, 0),
fill(0.0, 0),
phase);
end specificEnthalpy_pT;

Expand All @@ -5889,7 +5889,7 @@ to the above list of assumptions</li>
d := density(setState_pTX(
p,
T,
fill(0, 0),
fill(0.0, 0),
phase));
end density_pT;
end PartialTwoPhaseMedium;
Expand Down

0 comments on commit 35ad28d

Please sign in to comment.