diff options
author | eschnett <eschnett@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-06-13 15:40:56 +0000 |
---|---|---|
committer | eschnett <eschnett@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-06-13 15:40:56 +0000 |
commit | 30e325d094335d4f4081bd8839ccecf877b563d3 (patch) | |
tree | 6b62a1e7bba1109dcc4fb5e1a13e794f66552304 /src/GRHydro_Prim2ConM.F90 | |
parent | 31f715632eb6c51c7f702d23c2613da85d1593b1 (diff) |
Declare all OpenMP private variables explicitly as private
In Fortran OpenMP, loop variables of parallel loops are implicitly
private and do not need to be declared as private. To improve code
clarity, all such variables are now explicitly declared to be private.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@251 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Prim2ConM.F90')
-rw-r--r-- | src/GRHydro_Prim2ConM.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GRHydro_Prim2ConM.F90 b/src/GRHydro_Prim2ConM.F90 index 7648dc6..87ae5e7 100644 --- a/src/GRHydro_Prim2ConM.F90 +++ b/src/GRHydro_Prim2ConM.F90 @@ -232,7 +232,7 @@ subroutine Primitive2ConservativeCellsM(CCTK_ARGUMENTS) end do if(evolve_Y_e.ne.0) then - !$OMP PARALLEL DO PRIVATE(i, j) + !$OMP PARALLEL DO PRIVATE(i, j, k) do k = GRHydro_stencil,cctk_lsh(3)-GRHydro_stencil+1 do j = GRHydro_stencil,cctk_lsh(2)-GRHydro_stencil+1 do i = GRHydro_stencil,cctk_lsh(1)-GRHydro_stencil+1 @@ -275,7 +275,7 @@ subroutine Prim2ConservativePolytypeM(CCTK_ARGUMENTS) CCTK_REAL :: gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr - !$OMP PARALLEL DO PRIVATE(i, j, gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& + !$OMP PARALLEL DO PRIVATE(i, j, k, gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& !$OMP gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr) do k = GRHydro_stencil,cctk_lsh(3)-GRHydro_stencil+1 do j = GRHydro_stencil,cctk_lsh(2)-GRHydro_stencil+1 @@ -467,7 +467,7 @@ subroutine Primitive2ConservativePolyCellsM(CCTK_ARGUMENTS) end do if(evolve_Y_e.ne.0) then - !$OMP PARALLEL DO PRIVATE(i, j) + !$OMP PARALLEL DO PRIVATE(i, j, k) do k = GRHydro_stencil,cctk_lsh(3)-GRHydro_stencil+1 do j = GRHydro_stencil,cctk_lsh(2)-GRHydro_stencil+1 do i = GRHydro_stencil,cctk_lsh(1)-GRHydro_stencil+1 |