init_kt_grids_specified Subroutine

  subroutine init_kt_grids_specified(kt_grids_specified_config_in)
    use mp, only: proc0
    implicit none
    type(kt_grids_specified_config_type), intent(in), optional :: kt_grids_specified_config_in

    if (initialized) return
    initialized = .true.

    if (present(kt_grids_specified_config_in)) kt_grids_specified_config = kt_grids_specified_config_in

    call kt_grids_specified_config%init(name = 'kt_grids_specified_parameters', requires_index = .false.)

    ! Copy out internal values into module level parameters
    associate(self => kt_grids_specified_config)
#include "kt_grids_specified_copy_out_auto_gen.inc"
    end associate

    if (naky /= -1 .and. proc0) write(*, *) "Warning : naky input is deprecated, set nmodes instead"
    if (ntheta0 /= -1 .and. proc0) write(*, *) "Warning : ntheta0 input is deprecated, set nmodes instead"
    naky = nmodes ; ntheta0 = nmodes
  end subroutine init_kt_grids_specified