fast forward

Author: sbryngelson

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