fast forward

MFlowCode · Jan 5, 2024 · c57893e · c57893e
1 parent 603d593
commit c57893e
Show file tree

Hide file tree

Showing 21 changed files with 1,563 additions and 545 deletions.
diff --git a/src/common/m_derived_types.fpp b/src/common/m_derived_types.fpp
@@ -152,6 +152,9 @@ module m_derived_types
         real(kind(0d0)), dimension(num_fluids_max) :: alpha
         real(kind(0d0)) :: gamma
         real(kind(0d0)) :: pi_inf !<
+        real(kind(0d0)) :: cv !<
+        real(kind(0d0)) :: qv !<
+        real(kind(0d0)) :: qvp !<
 
 
         !! Primitive variables associated with the patch. In order, these include
@@ -178,6 +181,9 @@ module m_derived_types
         real(kind(0d0)) :: gamma   !< Sp. heat ratio
         real(kind(0d0)) :: pi_inf  !< Liquid stiffness
         real(kind(0d0)), dimension(2) :: Re      !< Reynolds number
+        REAL(KIND(0d0)) :: cv      !< heat capacity
+        REAL(KIND(0d0)) :: qv      !< reference energy per unit mass for SGEOS, q (see Le Metayer (2004))
+        REAL(KIND(0d0)) :: qvp     !< reference entropy per unit mass for SGEOS, q' (see Le Metayer (2004))
         real(kind(0d0)) :: mul0    !< Bubble viscosity
         real(kind(0d0)) :: ss      !< Bubble surface tension
         real(kind(0d0)) :: pv      !< Bubble vapour pressure