A cometary ionosphere model for Io