!
! Replacing bndry.F with lbc.F, so this is a dummy bndry.F
      subroutine bndry
      write(6,"('Dummy routine bndry')")
      end subroutine bndry
