Text this: Tide-induced currents in harbors of arbitrary shape /