diff options
author | eschnett <eschnett@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2011-03-31 17:40:09 +0000 |
---|---|---|
committer | eschnett <eschnett@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2011-03-31 17:40:09 +0000 |
commit | d30133827eb2f038ab64aab57499345ffe410e98 (patch) | |
tree | 99f5bf944c0a6b6cc96caf42e8ff960cc566c997 | |
parent | 5dfb829e3b5b4130e49f8b8bfeeaac51b62160d0 (diff) |
Add comments to numerical constants
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@41 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
-rw-r--r-- | src/EOS_Omni_Module.F90 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/EOS_Omni_Module.F90 b/src/EOS_Omni_Module.F90 index f98930d..1cc6719 100644 --- a/src/EOS_Omni_Module.F90 +++ b/src/EOS_Omni_Module.F90 @@ -2,6 +2,9 @@ module EOS_Omni_Module implicit none + ! Magic numbers in convenient units, calculated by someone whom we + ! trust to have worked very carefully + real*8,parameter :: rho_gf = 1.61620075314614d-18 real*8,parameter :: press_gf = 1.7982953469278d-39 real*8,parameter :: eps_gf = 1.11265006d-21 @@ -9,6 +12,9 @@ module EOS_Omni_Module real*8,parameter :: mass_gf = 5.02765209d-34 real*8,parameter :: length_gf = 6.77140812d-06 + ! Inverses of the numbers above, calculated manually instead of by + ! the compiler + real*8,parameter :: inv_rho_gf = 6.18735016707159d17 real*8,parameter :: inv_press_gf = 5.56082181777535d38 real*8,parameter :: inv_eps_gf = 8.98755175549085d20 @@ -19,6 +25,8 @@ module EOS_Omni_Module real*8,parameter :: clite = 2.99792458d10 real*8,parameter :: cliteinv2 = 1.11265005605362d-21 + ! These values are set by EOS_Omni_Startup + real*8 :: poly_k_cgs = 0.0d0 real*8 :: gl_k_cgs = 0.0d0 |