c    @(#)btrace.f	1.2
c
c --- routine to return the lower boundary condition for the tracers
c
c
      real function btrace(ip)

      include'mladv.inc'

      btrace = 0.0

      return
      end
