diff options
Diffstat (limited to 'src/GRHydro_Source.F90')
| -rw-r--r-- | src/GRHydro_Source.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GRHydro_Source.F90 b/src/GRHydro_Source.F90 index 1bb3acc..1a981db 100644 --- a/src/GRHydro_Source.F90 +++ b/src/GRHydro_Source.F90 @@ -112,7 +112,7 @@ subroutine SourceTerms(CCTK_ARGUMENTS) force_spatial_second_order = .FALSE. if (spatial_order > 2) then - !$OMP PARALLEL DO PRIVATE(i, j) + !$OMP PARALLEL DO PRIVATE(i, j, k) do k = 1 + GRHydro_stencil, nz - GRHydro_stencil do j = 1 + GRHydro_stencil, ny - GRHydro_stencil do i = 1 + GRHydro_stencil, nx - GRHydro_stencil @@ -131,7 +131,7 @@ subroutine SourceTerms(CCTK_ARGUMENTS) !$OMP END PARALLEL DO end if - !$OMP PARALLEL DO PRIVATE(i, j, local_spatial_order,& + !$OMP PARALLEL DO PRIVATE(i, j, k, local_spatial_order,& !$OMP localgxx,localgxy,localgxz,localgyy,localgyz,localgzz,& !$OMP psi4pt,det,sqrtdet,rhoenthalpyW2,shiftx,shifty,shiftz,& !$OMP dx_betax,dx_betay,dx_betaz,dy_betax,dy_betay,dy_betaz,& |