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

@@ -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

Media/SimpleMoistAir/test_r_dTX.mo

+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;

Media/SimpleMoistAir/test_r_dTX_der.mo

+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;

Media/SimpleMoistAir/test_saturationPressure.mo

+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;

Media/SimpleMoistAir/test_saturationPressureLiquid.mo

+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;

Media/SimpleMoistAir/test_saturationPressureLiquidDer.mo

+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;

Media/SimpleMoistAir/test_sublimationPressureIce.mo

+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;

Media/SimpleMoistAir/test_sublimationPressureIceDer.mo

+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;