read_parameters_box Subroutine

  subroutine read_parameters_box(kt_grids_box_config_in)
    use theta_grid, only: init_theta_grid
    implicit none
    type(kt_grids_box_config_type), intent(in), optional :: kt_grids_box_config_in

    if (parameters_read) return
    parameters_read = .true.

    call init_theta_grid

    if (present(kt_grids_box_config_in)) kt_grids_box_config = kt_grids_box_config_in

    call kt_grids_box_config%init(name = 'kt_grids_box_parameters', requires_index = .false.)

    ! Copy out internal values into module level parameters
    associate(self => kt_grids_box_config)
#include "kt_grids_box_copy_out_auto_gen.inc"
    end associate
  end subroutine read_parameters_box