read_params Subroutine

public subroutine read_params(files)

Uses

  • proc~~read_params~~UsesGraph proc~read_params read_params module~mod_global_parameters mod_global_parameters proc~read_params->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Read this module's parameters from a file

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: files(:)

Calls

proc~~read_params~~CallsGraph proc~read_params read_params proc~mpistop mpistop proc~read_params->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~read_params~~CalledByGraph proc~read_params read_params proc~phys_init phys_init proc~phys_init->proc~read_params proc~phys_activate phys_activate proc~phys_activate->proc~phys_init

Namelists

Namelist srhd_list


Variables

Name Type Default Description
srhd_eos
srhd_gamma
srhd_n_tracer
he_abundance
srhd_source_usr
srhd_small_pressure
srhd_small_density

Source Code

  subroutine read_params(files)
    use mod_global_parameters
    character(len=*), intent(in) :: files(:)
    integer                      :: n

    namelist /srhd_list/ srhd_eos,srhd_gamma,srhd_n_tracer, &
      He_abundance, srhd_source_usr, &
      srhd_small_pressure, srhd_small_density

    do n = 1, size(files)
       open(unitpar, file=trim(files(n)), status="old")
       read(unitpar, srhd_list, end=111)
111    close(unitpar)
    end do

    if (srhd_small_pressure < 0.0d0) call mpistop(&
       "srhd_small_pressure should be positive.")
    if (srhd_small_density < 0.0d0) call mpistop(&
       "srhd_small_density should be positive.")

    
    

  end subroutine read_params