[Commits] [svn:einsteintoolkit] EOS_Omni/trunk/src/ (Rev. 41)

[schnetter at cct.lsu.edu]

User: eschnett
Date: 2011/03/31 12:40 PM

Modified:
 /trunk/src/
  EOS_Omni_Module.F90

Log:
 Add comments to numerical constants

File Changes:

Directory: /trunk/src/
======================

File [modified]: EOS_Omni_Module.F90
Delta lines: +8 -0
===================================================================
--- trunk/src/EOS_Omni_Module.F90	2011-03-31 17:39:41 UTC (rev 40)
+++ trunk/src/EOS_Omni_Module.F90	2011-03-31 17:40:09 UTC (rev 41)
@@ -2,6 +2,9 @@
 
   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 @@
   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 @@
   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