Algorithm for modeling electromagnetic channel of seismo-ionospheric coupling (SIC) and the variations in the electron concentration