read_params Subroutine

public subroutine read_params(files)

Uses

  • proc~~read_params~3~~UsesGraph proc~read_params~3 read_params module~mod_global_parameters mod_global_parameters proc~read_params~3->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~3~~CalledByGraph proc~read_params~3 read_params proc~phys_init~3 phys_init proc~phys_init~3->proc~read_params~3 proc~phys_activate~3 phys_activate proc~phys_activate~3->proc~phys_init~3

Namelists

Namelist ffhd_list


Variables

Name Type Default Description
ffhd_energy
ffhd_gamma
ffhd_partial_ionization
ffhd_gravity
ffhd_radiative_cooling
ffhd_hyperbolic_thermal_conduction
ffhd_source_usr
ffhd_pdivb
he_abundance

Source Code

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

    namelist /ffhd_list/ ffhd_energy, ffhd_gamma, ffhd_partial_ionization, ffhd_gravity, &
          ffhd_radiative_cooling, ffhd_hyperbolic_thermal_conduction, ffhd_source_usr, ffhd_pdivb, He_abundance

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

    


  end subroutine read_params