FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(theta_grid_gridgen_config_type), | intent(in), | optional | :: | theta_grid_gridgen_config_in |
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