A simple but accurate mass conservative, peak-preserving, mixing ratio bounded advection algorithm with FORTRAN code