diff options
author | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2013-03-15 21:50:51 +0000 |
---|---|---|
committer | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2013-03-15 21:50:51 +0000 |
commit | d9199f1361e1a22b63e59f11dcf575fc4b6fcfc4 (patch) | |
tree | 5b17236ba4bdad595b63c93fb591c7ff6f8b1423 /src/EOS_Omni_Module.F90 | |
parent | c8ec525fe52ac31ecb5564e8991fd245bef4faec (diff) |
* add possibility to stich on a polytrope to the lower end
of a tabulated cold EOS
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@76 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
Diffstat (limited to 'src/EOS_Omni_Module.F90')
-rw-r--r-- | src/EOS_Omni_Module.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/EOS_Omni_Module.F90 b/src/EOS_Omni_Module.F90 index 04dd10d..908614e 100644 --- a/src/EOS_Omni_Module.F90 +++ b/src/EOS_Omni_Module.F90 @@ -33,6 +33,8 @@ module EOS_Omni_Module real*8 :: coldeos_gammath = 0.0d0 real*8 :: coldeos_rhomin = 0.0d0 real*8 :: coldeos_rhomax = 0.0d0 + real*8 :: coldeos_low_kappa = 0.0d0 + real*8 :: coldeos_low_gamma = 0.0d0 real*8 :: coldeos_kappa = 0.0d0 real*8 :: coldeos_thfac = 1.0d0 real*8 :: coldeos_dlrho = 1.0d0 |