diff options
author | eschnett <eschnett@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-10-30 00:53:23 +0000 |
---|---|---|
committer | eschnett <eschnett@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-10-30 00:53:23 +0000 |
commit | cbb215c627efdce075b87cd4e620d46e9115f293 (patch) | |
tree | 5c42c03edb6f624eb4b1d4ffa65179652c924610 /src/GRHydro_ENOReconstruct_drv.F90 | |
parent | f497d2aaaf1596abf75a3a4332ad5b4fede846b3 (diff) |
Declare loop variables OpenMP private
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@586 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_ENOReconstruct_drv.F90')
-rw-r--r-- | src/GRHydro_ENOReconstruct_drv.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GRHydro_ENOReconstruct_drv.F90 b/src/GRHydro_ENOReconstruct_drv.F90 index 1c21799..582d29a 100644 --- a/src/GRHydro_ENOReconstruct_drv.F90 +++ b/src/GRHydro_ENOReconstruct_drv.F90 @@ -114,7 +114,7 @@ subroutine GRHydro_ENOReconstruct_drv(CCTK_ARGUMENTS) nz = cctk_lsh(3) !initialize trivial_rp to false - !$OMP PARALLEL DO + !$OMP PARALLEL DO PRIVATE(i,j,k) do k=1,nz do j=1,ny do i=1,nx |