check_kt_grids_specified Subroutine

  subroutine check_kt_grids_specified (report_unit, aky, theta0)
    implicit none
    integer, intent(in) :: report_unit
    real, dimension (:), intent (in) :: aky
    real, dimension (:), intent (in) :: theta0
    integer :: i

    write (report_unit, *)
    write (report_unit, fmt="('A set of ',i3,' k_perps will be evolved.')") nmodes
    write (report_unit, *)
    do i = 1, nmodes
       write (report_unit, fmt="('ky rho = ',e11.4,' theta0 = ',e11.4)") aky(i), theta0(i)
    end do
  end subroutine check_kt_grids_specified