A model of energetic ion effects on pressure driven tearing modes in tokamaks