clean nondimen and COMB in fludyna

astr-code · Nov 2, 2023 · 25c5d0a · 25c5d0a
1 parent 219f8e2
commit 25c5d0a
Show file tree

Hide file tree

Showing 4 changed files with 285 additions and 248 deletions.
diff --git a/src/commvar.F90 b/src/commvar.F90
@@ -90,7 +90,7 @@ module commvar
   integer,allocatable :: imon(:,:)
   real(8) :: time,deltat
   real(8) :: uinf,vinf,winf,roinf,pinf,tinf
-  real(8) :: ref_t,reynolds,mach,rgas,gamma,prandtl
+  real(8) :: ref_t,reynolds,mach,rgas,cp,cv,gamma,prandtl
   real(8),allocatable :: schmidt(:)
   real(8) :: const1,const2,const3,const4,const5,const6,const7
   real(8) :: tempconst,tempconst1
@@ -109,6 +109,8 @@ module commvar
   !|            reynolds | Reynolds number.                            |
   !|                mach | Mach number.                                |
   !|                rgas | gas constant, p=ro*rgas*T.                  |
+  !|                  cp | specific heat at constant pressure.         |
+  !|                  cv | specific heat at constant volume.           |
   !|               gamma | specific heat ratio.                        |
   !|             prandtl | Prandtl number.                             |
   !|             schmidt | the Schmidt number array for each scalar.   |