! source file: /Users/nmengis/Documents/UVic_ESCM/2.10/source/mom/xbt.F
      subroutine xbti

      return
      end

