Error correction: missing potential energy transfert

FluidDynamics/Components/Orifices/HorizontalOpening.mo

@@ -112,8 +112,8 @@ In such a case, the HorizontalOpening is assumed behaves like a VerticalOpening
   port_a.H_flow = m_flow_i * TAeZoSysPro.FluidDynamics.Utilities.regStep(
     x = Vel, 
     x_small = 1e-3, 
-    y1 = h_a, 
-    y2 = h_b);
+    y1 = h_a + Modelica.Constants.g_n * (Alt_a - Alt_b), 
+    y2 = h_b - Modelica.Constants.g_n * (Alt_a - Alt_b));
   port_a.H_flow + port_b.H_flow = 0;
   
   annotation(defaultComponentName="opening",

FluidDynamics/Components/Orifices/Opening.mo

@@ -103,8 +103,8 @@ equation
   port_a.H_flow = m_flow_i * TAeZoSysPro.FluidDynamics.Utilities.regStep(
     x = Vel, 
     x_small = 1e-3, 
-    y1 = h_a, 
-    y2 = h_b);
+    y1 = h_a + Modelica.Constants.g_n * (Alt_a - Alt_b), 
+    y2 = h_b - Modelica.Constants.g_n * (Alt_a - Alt_b) );
   port_a.H_flow + port_b.H_flow = 0;
   
   annotation(defaultComponentName="opening",

FluidDynamics/Components/Orifices/SimpleOpeningComp.mo

@@ -91,7 +91,7 @@ equation
     y1 = port_a.d/sum(port_a.d), 
     y2 = port_a.d/sum(port_a.d));
   port_a.m_flow + port_b.m_flow = fill(0.0, Medium.nX);
-  port_a.H_flow = smooth(0, if dp >= 0.0 then m_flow * h_a else m_flow * h_b);
+  port_a.H_flow = semiLinear(m_flow, h_a + g*(Alt_a - Alt_b), h_b - g*(Alt_a - Alt_b) );
   port_a.H_flow + port_b.H_flow = 0;
   
   annotation(defaultComponentName="SimpleOpeningComp",