From 365c1415b63c3c4cf972c7a4e7e4b0fb4a452273 Mon Sep 17 00:00:00 2001
From: MARSOLLIER Felix <felix-externe.marsollier@edvance.fr>
Date: Tue, 26 Jan 2021 15:01:35 +0100
Subject: [PATCH] Addition of tests of functions: - saturation pressure of
liquid water (saturationPressureLiquid and its derivative
saturationPressureLiquidDer) - saturation pressure of ice
(sublimationPressureIce and its derivative sublimationPressureIceDer) -
saturation pressure of water that allows the modelling of conditions bellow
the triple point of water
---
Media/SimpleMoistAir/package.order | 7 ++++++
Media/SimpleMoistAir/test_r_dTX.mo | 13 +++++++++++
Media/SimpleMoistAir/test_r_dTX_der.mo | 23 +++++++++++++++++++
.../SimpleMoistAir/test_saturationPressure.mo | 15 ++++++++++++
.../test_saturationPressureLiquid.mo | 13 +++++++++++
.../test_saturationPressureLiquidDer.mo | 19 +++++++++++++++
.../test_sublimationPressureIce.mo | 14 +++++++++++
.../test_sublimationPressureIceDer.mo | 16 +++++++++++++
8 files changed, 120 insertions(+)
create mode 100644 Media/SimpleMoistAir/test_r_dTX.mo
create mode 100644 Media/SimpleMoistAir/test_r_dTX_der.mo
create mode 100644 Media/SimpleMoistAir/test_saturationPressure.mo
create mode 100644 Media/SimpleMoistAir/test_saturationPressureLiquid.mo
create mode 100644 Media/SimpleMoistAir/test_saturationPressureLiquidDer.mo
create mode 100644 Media/SimpleMoistAir/test_sublimationPressureIce.mo
create mode 100644 Media/SimpleMoistAir/test_sublimationPressureIceDer.mo
diff --git a/Media/SimpleMoistAir/package.order b/Media/SimpleMoistAir/package.order
index d2525ca..086cd15 100644
--- a/Media/SimpleMoistAir/package.order
+++ b/Media/SimpleMoistAir/package.order
@@ -4,3 +4,10 @@ test_d_phX
test_pressure
test_cp
test_saturationDensity
+test_saturationPressureLiquid
+test_saturationPressureLiquidDer
+test_sublimationPressureIce
+test_sublimationPressureIceDer
+test_saturationPressure
+test_r_dTX
+test_r_dTX_der
diff --git a/Media/SimpleMoistAir/test_r_dTX.mo b/Media/SimpleMoistAir/test_r_dTX.mo
new file mode 100644
index 0000000..c1334ec
--- /dev/null
+++ b/Media/SimpleMoistAir/test_r_dTX.mo
@@ -0,0 +1,13 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_r_dTX
+ parameter Modelica.SIunits.Density d = 1.2;
+ parameter Modelica.SIunits.MassFraction X[2] = {0.03, 0.97};
+ Modelica.SIunits.Temperature T;
+ Modelica.SIunits.SpecificHeatCapacity R;
+equation
+ T = 190 + time;
+ R = TAeZoSysPro.Media.Air.MoistAir.r_dTX(d = d, T = T, X = X);
+ annotation(
+ experiment(StartTime = 0, StopTime = 100, Tolerance = 1e-06, Interval = 0.2));
+end test_r_dTX;
diff --git a/Media/SimpleMoistAir/test_r_dTX_der.mo b/Media/SimpleMoistAir/test_r_dTX_der.mo
new file mode 100644
index 0000000..1ed58ab
--- /dev/null
+++ b/Media/SimpleMoistAir/test_r_dTX_der.mo
@@ -0,0 +1,23 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_r_dTX_der
+
+ parameter Modelica.SIunits.Density d = 1.2;
+ parameter Modelica.SIunits.MassFraction X[2] = {0.03, 0.97};
+ Modelica.SIunits.Temperature T;
+ Modelica.SIunits.SpecificHeatCapacity R;
+ Real der_R "Analytical time derivative of R";
+ Real der_R_num "Numererical time derivative of R";
+
+equation
+
+ T = 190 + time;
+ R = TAeZoSysPro.Media.Air.MoistAir.r_dTX(d = d, T = T, X = X);
+ der_R = TAeZoSysPro.Media.Air.MoistAir.r_dTX_der(
+ d = d, T = T, X = X,
+ dd = 0.0, dT=der(T), dX={0.0, 0.0});
+ der_R_num = der(R);
+
+annotation(
+ experiment(StartTime = 0, StopTime = 150, Tolerance = 1e-6, Interval = 0.3));
+end test_r_dTX_der;
diff --git a/Media/SimpleMoistAir/test_saturationPressure.mo b/Media/SimpleMoistAir/test_saturationPressure.mo
new file mode 100644
index 0000000..3913cc0
--- /dev/null
+++ b/Media/SimpleMoistAir/test_saturationPressure.mo
@@ -0,0 +1,15 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_saturationPressure
+ Modelica.SIunits.Temperature T, T_bis, T_ter;
+ Modelica.SIunits.Pressure p_ice, p_steam, p;
+equation
+ T = 272 + time;
+ T = T_bis;
+ T = T_ter;
+ p_steam = TAeZoSysPro.Media.Air.MoistAir.saturationPressureLiquid(T);
+ p_ice = TAeZoSysPro.Media.Air.MoistAir.sublimationPressureIce(T);
+ p = TAeZoSysPro.Media.Air.MoistAir.saturationPressure(T);
+ annotation(
+ experiment(StartTime = 0, StopTime = 2, Tolerance = 1e-06, Interval = 0.005));
+end test_saturationPressure;
diff --git a/Media/SimpleMoistAir/test_saturationPressureLiquid.mo b/Media/SimpleMoistAir/test_saturationPressureLiquid.mo
new file mode 100644
index 0000000..5128518
--- /dev/null
+++ b/Media/SimpleMoistAir/test_saturationPressureLiquid.mo
@@ -0,0 +1,13 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_saturationPressureLiquid
+
+ Modelica.SIunits.Temperature T ;
+ Modelica.SIunits.Pressure p;
+
+equation
+
+ T = 273.15 + time;
+ p = TAeZoSysPro.Media.Air.MoistAir.saturationPressureLiquid(T);
+
+end test_saturationPressureLiquid;
diff --git a/Media/SimpleMoistAir/test_saturationPressureLiquidDer.mo b/Media/SimpleMoistAir/test_saturationPressureLiquidDer.mo
new file mode 100644
index 0000000..f2fa8ae
--- /dev/null
+++ b/Media/SimpleMoistAir/test_saturationPressureLiquidDer.mo
@@ -0,0 +1,19 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_saturationPressureLiquidDer
+
+ Modelica.SIunits.Temperature T ;
+ Modelica.SIunits.Pressure p;
+ Real dpdt, dpdt_num;
+
+equation
+
+ T = 273.15 + time;
+ p = TAeZoSysPro.Media.Air.MoistAir.saturationPressureLiquid(T);
+ dpdt = TAeZoSysPro.Media.Air.MoistAir.saturationPressureLiquid_der(T, der(T));
+ dpdt_num = der(p);
+
+
+annotation(
+ experiment(StartTime = 0, StopTime = 1, Tolerance = 1e-6, Interval = 0.002));
+end test_saturationPressureLiquidDer;
diff --git a/Media/SimpleMoistAir/test_sublimationPressureIce.mo b/Media/SimpleMoistAir/test_sublimationPressureIce.mo
new file mode 100644
index 0000000..ee3e849
--- /dev/null
+++ b/Media/SimpleMoistAir/test_sublimationPressureIce.mo
@@ -0,0 +1,14 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_sublimationPressureIce
+
+ Modelica.SIunits.Temperature T ;
+ Modelica.SIunits.Pressure p;
+
+equation
+
+ T = 273.16 - time;
+ p = TAeZoSysPro.Media.Air.MoistAir.sublimationPressureIce(T);
+
+
+end test_sublimationPressureIce;
diff --git a/Media/SimpleMoistAir/test_sublimationPressureIceDer.mo b/Media/SimpleMoistAir/test_sublimationPressureIceDer.mo
new file mode 100644
index 0000000..c17d2a1
--- /dev/null
+++ b/Media/SimpleMoistAir/test_sublimationPressureIceDer.mo
@@ -0,0 +1,16 @@
+within TAeZoSysPro_testsuite.Media.SimpleMoistAir;
+
+model test_sublimationPressureIceDer
+
+ Modelica.SIunits.Temperature T ;
+ Modelica.SIunits.Pressure p;
+ Real dpdt, dpdt_num;
+
+equation
+
+ T = 273.15 - time;
+ p = TAeZoSysPro.Media.Air.MoistAir.sublimationPressureIce(T);
+ dpdt = TAeZoSysPro.Media.Air.MoistAir.sublimationPressureIce_der(T, der(T));
+ dpdt_num = der(p);
+
+end test_sublimationPressureIceDer;
--
GitLab