/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. 

  2. !!! mixeos_lib depends on mixeos_mod
    3. 

  3. !!! mixeos_mod depends on mixeos_private
    4. 

  4. !!! mixeos_private depends on NUM_METALS constant defined in mixeos_params
    5. 

  5. !!! mixeos_def also depends on mixeos_params
    6. 

  6. !! I actually don't think there is.
    7. 

    8. 

  8. module mixeos_params
    9. 

  9.   implicit none
    10. 

  10.   integer, parameter :: i_P = 1
    11. 

  11.   integer, parameter :: i_E = 2
    12. 

  12.   integer, parameter :: i_S = 3
    13. 

  13. 

  14.   integer, parameter :: i_val = 1
    15. 

  15. 

  16.   integer, parameter :: i_dRho = 2
    17. 

  17.   integer, parameter :: i_dlnRho = 2
    18. 

  18.   integer, parameter :: i_dlnP = 2
    19. 

  19.   integer, parameter :: i_dX = 2
    20. 

  20.   integer, parameter :: i_dZ = 2
    21. 

  21.   
    22. 

  22.   integer, parameter :: i_dT = 3
    23. 

  23.   integer, parameter :: i_dlnT = 3
    24. 

  24.   integer, parameter :: i_dY = 3
    25. 

  25. 

  26.   integer, parameter :: i_dRho2 = 4
    27. 

  27.   integer, parameter :: i_dlnRho2 = 4
    28. 

  28.   integer, parameter :: i_dlnP2 = 4
    29. 

  29.   integer, parameter :: i_dX2 = 4
    30. 

  30.   integer, parameter :: i_dZ2 = 4
    31. 

  31. 

  32.   integer, parameter :: i_dT2 = 5
    33. 

  33.   integer, parameter :: i_dlnT2 = 5
    34. 

  34.   integer, parameter :: i_dY2 = 5
    35. 

  35. 

  36.   integer, parameter :: i_dRhodT = 6
    37. 

  37.   integer, parameter :: i_dlnRhodlnT = 6
    38. 

  38.   integer, parameter :: i_dlnPdlnT = 6
    39. 

  39.   integer, parameter :: i_dXdY = 6
    40. 

  40.   integer, parameter :: i_dZdY = 6
    41. 

  41.   
    42. 

  42.   !! size of derivative vectors : for allocation
    43. 

  43.   integer, parameter :: num_derivs = 6
    44. 

  44.   
    45. 

  45.   integer, parameter :: NUM_METALS = 5
    46. 

  46.   double precision, parameter :: minRho = 1e-10
    47. 

  47.   double precision, parameter :: maxRho = 1e5
    48. 

  48.   double precision, parameter :: minT = 1e1
    49. 

  49.   double precision, parameter :: maxT = 1e8
    50. 

  50.   double precision, parameter :: minlog10Rho = log10(minRho)
    51. 

  51.   double precision, parameter :: maxlog10Rho = log10(maxRho)
    52. 

  52.   double precision, parameter :: minlog10T = log10(minT)
    53. 

  53.   double precision, parameter :: maxlog10T = log10(maxT)
    54. 

  54. 

  55.   integer, parameter :: MIXEOSERR_MEM = -32
    56. 

  56. 

  57. end module mixeos_params
    58.