read_parameters Subroutine

private subroutine read_parameters(theta_grid_gridgen_config_in)

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(theta_grid_gridgen_config_type), intent(in), optional :: theta_grid_gridgen_config_in

Contents

Source Code


Source Code

  subroutine read_parameters(theta_grid_gridgen_config_in)
    use file_utils, only: input_unit, input_unit_exist
    implicit none
    type(theta_grid_gridgen_config_type), intent(in), optional :: theta_grid_gridgen_config_in

    if (present(theta_grid_gridgen_config_in)) theta_grid_gridgen_config = theta_grid_gridgen_config_in

    call theta_grid_gridgen_config%init(name = 'theta_grid_gridgen_knobs', requires_index = .false.)

    ! Copy out internal values into module level parameters
    npadd  = theta_grid_gridgen_config%npadd
    alknob  = theta_grid_gridgen_config%alknob
    epsknob  = theta_grid_gridgen_config%epsknob
    bpknob  = theta_grid_gridgen_config%bpknob
    extrknob  = theta_grid_gridgen_config%extrknob
    skip_gridgen = theta_grid_gridgen_config%skip_gridgen
    tension  = theta_grid_gridgen_config%tension
    thetamax  = theta_grid_gridgen_config%thetamax
    deltaw  = theta_grid_gridgen_config%deltaw
    widthw  = theta_grid_gridgen_config%widthw

    exist = theta_grid_gridgen_config%exist
  end subroutine read_parameters