wnml_kt_grids_specified Subroutine

  subroutine wnml_kt_grids_specified (unit)
    implicit none
    integer, intent(in) :: unit
    integer :: i
    call kt_grids_specified_config%write(unit)
    do i = 1, nmodes
       call kt_grids_specified_element_config(i)%write(unit)
    end do
  end subroutine wnml_kt_grids_specified