read_params Subroutine

public subroutine read_params(files)

Uses

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

Namelists

Namelist mhd_list


Variables

Name Type Default Description
mhd_energy
mhd_gamma
mhd_glm_alpha
mhd_gravity
mhd_n_tracer
mhd_radiative_cooling
he_abundance
mhd_eta
mhd_source_usr
mhd_resistivity
mhd_hyperbolic_thermal_conduction
mhd_hyperbolic_thermal_conduction_anisotropic
tc_kappa_par
tc_kappa_perp
mhd_energy_only

Source Code

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

    namelist /mhd_list/ mhd_energy, mhd_gamma, mhd_glm_alpha, mhd_gravity,&
      mhd_n_tracer, mhd_radiative_cooling, He_abundance, mhd_eta, mhd_source_usr, &
      mhd_resistivity, mhd_hyperbolic_thermal_conduction, &
      mhd_hyperbolic_thermal_conduction_anisotropic, &
      tc_kappa_par, tc_kappa_perp, &
      mhd_energy_only

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

    
    

  end subroutine read_params