read_parameters Subroutine

private subroutine read_parameters(theta_grid_gridgen_config_in)

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)
    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