SUBROUTINE wrt_tides
      RETURN
      END SUBROUTINE wrt_tides