A constitutive model of granite shear creep under moisture