diff options
Diffstat (limited to 'src/GRHydro_UpdateMask.F90')
| -rw-r--r-- | src/GRHydro_UpdateMask.F90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/GRHydro_UpdateMask.F90 b/src/GRHydro_UpdateMask.F90 index a679dfb..2fd47df 100644 --- a/src/GRHydro_UpdateMask.F90 +++ b/src/GRHydro_UpdateMask.F90 @@ -98,11 +98,11 @@ subroutine GRHydroPostSyncAtmosphereMask(CCTK_ARGUMENTS) !$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) - if ( abs(atmosphere_mask_real(i,j,k)) .gt. 0.5) then - atmosphere_mask(i,j,k) = 1 - end if - end do + do i = 1, cctk_lsh(1) + if ( abs(atmosphere_mask_real(i,j,k)) .gt. 0.5) then + atmosphere_mask(i,j,k) = 1 + end if + end do end do end do !$OMP END PARALLEL DO @@ -139,9 +139,9 @@ subroutine GRHydroCopyIntegerMask(CCTK_ARGUMENTS) !$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) - atmosphere_mask_real(i,j,k) = atmosphere_mask(i,j,k) - end do + do i = 1, cctk_lsh(1) + atmosphere_mask_real(i,j,k) = atmosphere_mask(i,j,k) + end do end do end do !$OMP END PARALLEL DO |