Modelling flow in the porous bottom of the Barents Sea shelf