subroutine flush(lu)
!$$$  subprogram documentation block
!                .      .    .                                       .
! subprogram:    flush
!   prgmmr:
!
! abstract: Missing routine
!
! program history log:
!   2009-08-06  lueken - added subprogram doc block
!
!   input argument list:
!
!   output argument list:
!
! attributes:
!   language: f90
!   machine:
!
!$$$ end documentation block
use kinds, only : i_kind
implicit none

integer(i_kind),intent(in   ) :: lu

end subroutine flush

