From 30e325d094335d4f4081bd8839ccecf877b563d3 Mon Sep 17 00:00:00 2001 From: eschnett Date: Mon, 13 Jun 2011 15:40:56 +0000 Subject: 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 --- src/GRHydro_Marquina.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/GRHydro_Marquina.F90') diff --git a/src/GRHydro_Marquina.F90 b/src/GRHydro_Marquina.F90 index 8edce62..58dd742 100644 --- a/src/GRHydro_Marquina.F90 +++ b/src/GRHydro_Marquina.F90 @@ -72,7 +72,7 @@ subroutine GRHydro_Marquina(CCTK_ARGUMENTS) f_marquina = 0.d0 - !$OMP PARALLEL DO PRIVATE(i,j,consp,consm_i,primp,primm_i,& + !$OMP PARALLEL DO PRIVATE(i,j,k,consp,consm_i,primp,primm_i,& !$OMP marquinaflux,avg_beta,avg_alp,gxxh,gxyh,gxzh,gyyh,gyzh,gzzh,& !$OMP psi4h,f_marquina,uxxh,uxyh,uxzh,uyyh,uyzh,uzzh,usendh,& !$OMP tmp_w_lorentzp, tmp_w_lorentzm_i,w_lorentzp,w_lorentzm_i,& @@ -371,7 +371,7 @@ subroutine GRHydro_Marquina(CCTK_ARGUMENTS) if (evolve_tracer .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 do j = GRHydro_stencil, cctk_lsh(2) - GRHydro_stencil do i = GRHydro_stencil, cctk_lsh(1) - GRHydro_stencil @@ -399,7 +399,7 @@ subroutine GRHydro_Marquina(CCTK_ARGUMENTS) 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 do j = GRHydro_stencil, cctk_lsh(2) - GRHydro_stencil do i = GRHydro_stencil, cctk_lsh(1) - GRHydro_stencil -- cgit v1.2.3