Algoritmo matemático eficiente para la resolución, por el método de diferencias finitas, de la ecuación de difusión-advección acoplada a modelos cinéticos de transferencia de seudo-primer orden