A Riemannian Block Coordinate Descent Method for Computing the Projection Robust Wasserstein Distance