initialize_id_bnsfuka Module Procedure

module procedure initialize_id_bnsfuka recursive module subroutine initialize_id_bnsfuka(this, flag, switch)

Uses

  • proc~~initialize_id_bnsfuka~~UsesGraph proc~initialize_id_bnsfuka initialize_id_bnsfuka mesh_refinement mesh_refinement proc~initialize_id_bnsfuka->mesh_refinement module~utility utility proc~initialize_id_bnsfuka->module~utility constants constants module~utility->constants matrix matrix module~utility->matrix

Initialize the \(\texttt{FUKA}\) \(\mathrm{BNS}\) \(\mathrm{ID}\).

  • If flag= [[utility:flag$sph]], set up the lattices around the stars for the \(\mathrm{BNS}\) produced with \(\texttt{FUKA}\).
  • If flag= [[utility:flag$tpo]], allocate memory for the hydro grid functions.
  • If flag > 0, assign its value to l_curr.
  • If [[utility:flag$tpo]] < flag < 0, assign its value to tpo_curr.

FT 16.09.2022

Arguments

Type IntentOptional Attributes Name
class(bnsfuka), intent(inout) :: this
integer, intent(in) :: flag

Identifies what kind of initialization has to be done
logical, intent(in), optional :: switch

If .TRUE., switch to a different initialization

Calls

proc~~initialize_id_bnsfuka~~CallsGraph proc~initialize_id_bnsfuka initialize_id_bnsfuka allocate_grid_function allocate_grid_function proc~initialize_id_bnsfuka->allocate_grid_function interface~initialize_id_bnsfuka initialize_id_bnsfuka proc~initialize_id_bnsfuka->interface~initialize_id_bnsfuka interface~initialize_id_bnsfuka->proc~initialize_id_bnsfuka

Called by

proc~~initialize_id_bnsfuka~~CalledByGraph proc~initialize_id_bnsfuka initialize_id_bnsfuka interface~initialize_id_bnsfuka initialize_id_bnsfuka proc~initialize_id_bnsfuka->interface~initialize_id_bnsfuka interface~initialize_id_bnsfuka->proc~initialize_id_bnsfuka

Contents

Variables


Variables

Type Visibility Attributes Name Initial
character(len=3), private :: cnt_i
integer, private :: i
character(len=:), private, ALLOCATABLE :: name_mass_density
character(len=:), private, ALLOCATABLE :: name_pressure
character(len=:), private, ALLOCATABLE :: name_specific_energy
character(len=:), private, ALLOCATABLE :: name_v_euler_x
character(len=:), private, ALLOCATABLE :: name_v_euler_y
character(len=:), private, ALLOCATABLE :: name_v_euler_z
integer, private, SAVE :: tpo_counter = 1

Counts how many times the PROCEDURE construct_particles_idase is called
logical, private :: wanted_tpo