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)
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
associate(self => theta_grid_gridgen_config)
#include "theta_grid_gridgen_copy_out_auto_gen.inc"
end associate
! Handle special treatment
if (regrid_tension < 0) regrid_tension = tension
end subroutine read_parameters