Modelling the influence of currents on wave propagation at the entrance of the Tagus estuary