A Numerical Algorithm for the Caputo Tempered Fractional Advection-Diffusion Equation