! source file: /Users/oschlies/UVIC/master/source/mom/xbt.F
      subroutine xbti

!=======================================================================
!     initialize all  XBT positions and arrays

!     inputs:

!     xbtlon = longiutde of XBT
!     xbtlat = latitude of XBT
!     xbtdpt = depth of XBT

!     outputs:

!     numxbt = number of XBTs
!     xname  = names of quantities measured by the XBTs
!     nxbtts = time step counter for averaging XBTs
!     ixbt   = nearest model grid point to xbtlon
!     jxbt   = nearest model grid point to xbtlat
!     kxbt   = nearest model grid point to xbtdpt
!     nsxbt  = starting XBT number for jrow
!     nexbt  = ending XBT number for jrow
!     axbt   = space for accumulating XBT data for averaging

!     based on code by: R. C. Pacanowski

!=======================================================================

      return
      end