diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-05-13 19:13:54 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-05-13 19:13:54 +0000 |
| commit | 975b37f408668f96128a7bdcd22c0baf59a42f41 (patch) | |
| tree | e2d2218ba50a82884fa51be1a11cb7514e50d7c8 /src/GRHydro_CalcUpdate.F90 | |
| parent | 77e4b1644c1969945a825180c03978ba86337cd0 (diff) | |
GRHydro: OpenMP parallelize constraint transport loop
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@327 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_CalcUpdate.F90')
| -rw-r--r-- | src/GRHydro_CalcUpdate.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GRHydro_CalcUpdate.F90 b/src/GRHydro_CalcUpdate.F90 index 99cdfdb..8c634d4 100644 --- a/src/GRHydro_CalcUpdate.F90 +++ b/src/GRHydro_CalcUpdate.F90 @@ -293,6 +293,7 @@ subroutine UpdateCalculation(CCTK_ARGUMENTS) if (transport_constraints.ne.0 .and. flux_direction.eq.1) then ! HACK: x direction is last ! FIXME: I think one could wrap all of this into a single do loop and remove the ! Evec storage + !$OMP PARALLEL DO PRIVATE(i,j,k) do k = GRHydro_stencil + 1, cctk_lsh(3) - GRHydro_stencil do j = GRHydro_stencil + 1, cctk_lsh(2) - GRHydro_stencil do i = GRHydro_stencil + 1, cctk_lsh(1) - GRHydro_stencil @@ -311,6 +312,7 @@ subroutine UpdateCalculation(CCTK_ARGUMENTS) enddo enddo enddo + !$OMP END PARALLEL DO end if return |