Numerical Computation of Tidal Friction for Present and Ancient Oceans