diff options
Diffstat (limited to 'src/GRHydro_UpdateMask.F90')
-rw-r--r-- | src/GRHydro_UpdateMask.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GRHydro_UpdateMask.F90 b/src/GRHydro_UpdateMask.F90 index 3f3be88..d408533 100644 --- a/src/GRHydro_UpdateMask.F90 +++ b/src/GRHydro_UpdateMask.F90 @@ -42,7 +42,7 @@ subroutine GRHydroUpdateAtmosphereMask(CCTK_ARGUMENTS) frac = CCTK_DELTA_TIME if(evolve_temper.ne.1) then - !$OMP PARALLEL DO PRIVATE(j,i) + !$OMP PARALLEL DO PRIVATE(k,j,i) do k = 1, cctk_lsh(3) do j = 1, cctk_lsh(2) do i = 1, cctk_lsh(1) @@ -64,7 +64,7 @@ subroutine GRHydroUpdateAtmosphereMask(CCTK_ARGUMENTS) !$OMP END PARALLEL DO else ! allow negative total energy - !$OMP PARALLEL DO PRIVATE(j,i) + !$OMP PARALLEL DO PRIVATE(k,j,i) do k = 1, cctk_lsh(3) do j = 1, cctk_lsh(2) do i = 1, cctk_lsh(1) |