construct_ejecta Module Procedure

module procedure construct_ejecta module subroutine construct_ejecta(derived_type, filename, eos_filenames)

Uses

    • pwp_EOS
    • utility
    • constants
    • timing
    • NR
  • proc~~construct_ejecta~~UsesGraph proc~construct_ejecta construct_ejecta NR NR proc~construct_ejecta->NR constants constants proc~construct_ejecta->constants module~utility utility proc~construct_ejecta->module~utility pwp_EOS pwp_EOS proc~construct_ejecta->pwp_EOS timing timing proc~construct_ejecta->timing module~utility->constants matrix matrix module~utility->matrix

Constructs an object of TYPE ejecta

FT xx.11.2021

Arguments

Type IntentOptional Attributes Name
class(ejecta), intent(out) :: derived_type

Constructed ejecta object
character(len=*), intent(in), optional :: filename

\(\texttt{LORENE}\) binary file containing the spectral DRS ID
character(len=*), intent(in), optional, DIMENSION(:) :: eos_filenames

Array of strings containing the names of the files containing the \(\mathrm{EOS}\) to be used for each matter object. If not PRESENT, information from the file filename is used

Calls

proc~~construct_ejecta~~CallsGraph proc~construct_ejecta construct_ejecta get_k0 get_k0 proc~construct_ejecta->get_k0 get_k1 get_k1 proc~construct_ejecta->get_k1 get_k2 get_k2 proc~construct_ejecta->get_k2 get_k3 get_k3 proc~construct_ejecta->get_k3 get_p1 get_p1 proc~construct_ejecta->get_p1 get_rho_0 get_rho_0 proc~construct_ejecta->get_rho_0 get_rho_1 get_rho_1 proc~construct_ejecta->get_rho_1 get_rho_2 get_rho_2 proc~construct_ejecta->get_rho_2 interface~get_gamma0~2 get_gamma0 proc~construct_ejecta->interface~get_gamma0~2 interface~get_gamma1~2 get_gamma1 proc~construct_ejecta->interface~get_gamma1~2 interface~get_gamma2~2 get_gamma2 proc~construct_ejecta->interface~get_gamma2~2 interface~get_gamma3~2 get_gamma3 proc~construct_ejecta->interface~get_gamma3~2 select_eos_parameters select_eos_parameters proc~construct_ejecta->select_eos_parameters timer timer proc~construct_ejecta->timer proc~get_gamma0~2 get_gamma0 interface~get_gamma0~2->proc~get_gamma0~2 proc~get_gamma1~2 get_gamma1 interface~get_gamma1~2->proc~get_gamma1~2 proc~get_gamma2~2 get_gamma2 interface~get_gamma2~2->proc~get_gamma2~2 proc~get_gamma3~2 get_gamma3 interface~get_gamma3~2->proc~get_gamma3~2

Called by

proc~~construct_ejecta~~CalledByGraph proc~construct_ejecta construct_ejecta interface~construct_ejecta construct_ejecta interface~construct_ejecta->proc~construct_ejecta

Contents

Variables


Variables

Type Visibility Attributes Name Initial
double precision, private, parameter :: atmosphere_density = 1.0439859633622731D-17
double precision, private :: dphi
double precision, private :: dr
double precision, private :: dth
double precision, private :: epstmp
logical, private :: exist
character(len=:), private, ALLOCATABLE :: finalnamefile
double precision, private, DIMENSION(:,:), ALLOCATABLE :: grid_tmp
integer, private :: header_lines = 2
integer, private :: i
integer, private :: i_matter
integer, private :: itr
integer, private :: j
integer, private :: k
double precision, private, DIMENSION(:,:), ALLOCATABLE :: mass_profile
integer, private, DIMENSION(:), ALLOCATABLE :: mass_profile_idx
integer, private, parameter :: n_matter = 1
integer, private :: nlines
integer, private :: ntmp
double precision, private :: rhotmp
integer, private, parameter :: unit_pos = 2589
double precision, private :: vxtmp
double precision, private :: vytmp
double precision, private :: vztmp
double precision, private :: xtmp
double precision, private :: ytmp
double precision, private :: ztmp