PageRenderTime 11ms CodeModel.GetById 0ms app.highlight 10ms RepoModel.GetById 0ms app.codeStats 0ms

/legacy/mixeos_params.f

https://bitbucket.org/NeilMiller/mixeos
FORTRAN Legacy | 57 lines | 39 code | 11 blank | 7 comment | 0 complexity | 3cf3a1e01e9da4e212fdb1d80c4a6112 MD5 | raw file
 1!!! Is there is a reason for this complex structure?
 2!!! mixeos_lib depends on mixeos_mod
 3!!! mixeos_mod depends on mixeos_private
 4!!! mixeos_private depends on NUM_METALS constant defined in mixeos_params
 5!!! mixeos_def also depends on mixeos_params
 6!! I actually don't think there is.
 7
 8module mixeos_params
 9  implicit none
10  integer, parameter :: i_P = 1
11  integer, parameter :: i_E = 2
12  integer, parameter :: i_S = 3
13
14  integer, parameter :: i_val = 1
15
16  integer, parameter :: i_dRho = 2
17  integer, parameter :: i_dlnRho = 2
18  integer, parameter :: i_dlnP = 2
19  integer, parameter :: i_dX = 2
20  integer, parameter :: i_dZ = 2
21  
22  integer, parameter :: i_dT = 3
23  integer, parameter :: i_dlnT = 3
24  integer, parameter :: i_dY = 3
25
26  integer, parameter :: i_dRho2 = 4
27  integer, parameter :: i_dlnRho2 = 4
28  integer, parameter :: i_dlnP2 = 4
29  integer, parameter :: i_dX2 = 4
30  integer, parameter :: i_dZ2 = 4
31
32  integer, parameter :: i_dT2 = 5
33  integer, parameter :: i_dlnT2 = 5
34  integer, parameter :: i_dY2 = 5
35
36  integer, parameter :: i_dRhodT = 6
37  integer, parameter :: i_dlnRhodlnT = 6
38  integer, parameter :: i_dlnPdlnT = 6
39  integer, parameter :: i_dXdY = 6
40  integer, parameter :: i_dZdY = 6
41  
42  !! size of derivative vectors : for allocation
43  integer, parameter :: num_derivs = 6
44  
45  integer, parameter :: NUM_METALS = 5
46  double precision, parameter :: minRho = 1e-10
47  double precision, parameter :: maxRho = 1e5
48  double precision, parameter :: minT = 1e1
49  double precision, parameter :: maxT = 1e8
50  double precision, parameter :: minlog10Rho = log10(minRho)
51  double precision, parameter :: maxlog10Rho = log10(maxRho)
52  double precision, parameter :: minlog10T = log10(minT)
53  double precision, parameter :: maxlog10T = log10(maxT)
54
55  integer, parameter :: MIXEOSERR_MEM = -32
56
57end module mixeos_params