!####################################################################### ! MODULE PROGRAM --- mod_parameter_tillotson_eos --- ### !####################################################################### ! ### ! Parameter Sets for Tillotson EOS ### ! (Meaning of parameters is described ### ! in book 'Impact Createring' by Melosh (1989).) ### ! ### ! Iron : imat = 1 ### ! Granite : imat = 2 ### ! Water : imat = 5 ### ! Water Ice : imat = 6 ### ! ### ! 2005/10/07 ### ! mod 2011/06/23 ### ! mod 2011/07/13 ### !####################################################################### module mod_parameter_wada_eos implicit none integer(4), parameter :: FLAG_WADA_CUTOFF = 0 ! Zero Pressure Cutoff ! 1 --> ON ! 0 --> OFF real(8), parameter :: GAMMA = 1.01d0 real(8), parameter :: C = 1.0d0 real(8), parameter :: N = 12.0d0 real(8), parameter :: RHO_0 = 12800.0d0 real(8), parameter :: E_0 = 5.15d7 real(8), parameter :: P_0 = 6.42d11 real(8), parameter :: V_0 = 7.15d3 real(8), parameter :: RHO_C = 2700.0d0 real(8), parameter :: E_C = 4.72d6 end module mod_parameter_wada_eos