Modeling of an in-situ diffusion experiment in granite at the Grimsel Test Site