“…[14], the pressure computation can be (very simply) recoded as follows: p = 0. !$OMP parallel do private(l,j r, j theta,j phi) !$OMP& reduction(+:p) !$OMP& indirect(j r,j theta,j phi) do l = 1,n part j r = f r(r(l)) j theta = f theta(theta(l)) j phi = f phi(phi(l)) p(j r,j theta,j phi) = p(j r, j theta,j phi) & + h(r(l),.…”