read_params Subroutine

public subroutine read_params(files)

Uses

  • proc~~read_params~4~~UsesGraph proc~read_params~4 read_params module~mod_global_parameters mod_global_parameters proc~read_params~4->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(:)

Called by

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

Namelists

Namelist hd_list


Variables

Name Type Default Description
hd_energy
hd_gamma
hd_adiab
hd_partial_ionization
hd_force_diagonal
hd_particles
hd_gravity
hd_n_tracer
hd_radiative_cooling
he_abundance

Source Code

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

    namelist /hd_list/ hd_energy, hd_gamma, hd_adiab, hd_partial_ionization,&
        hd_force_diagonal, hd_particles, hd_gravity, hd_n_tracer, hd_radiative_cooling, He_abundance

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

    

  end subroutine read_params