aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/EOS_Omni_Module.F908
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