/legacy/mixeos_params.f
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