diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-08-13 14:56:46 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-08-13 14:56:46 +0000 |
commit | 777d3d5417c9833eed108f298698ac934b7dd65e (patch) | |
tree | 5e33cd0eee1da7b24c947c44c059f0f14ca4763b | |
parent | bba5e83db573544da8de78328d9ec6d3d0e9e6bc (diff) |
Adjust loops for Prim2Con call (needs to run in the ghost zones as well after being called from ZelmaniLeak).HEADmaster
From: Philipp Moesta <pmoesta@tapir.caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@579 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
-rw-r--r-- | src/GRHydro_Prim2ConM.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GRHydro_Prim2ConM.F90 b/src/GRHydro_Prim2ConM.F90 index a473163..266b446 100644 --- a/src/GRHydro_Prim2ConM.F90 +++ b/src/GRHydro_Prim2ConM.F90 @@ -585,10 +585,10 @@ subroutine Primitive2ConservativeCellsM(CCTK_ARGUMENTS) if(evolve_Y_e.ne.0) then !$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 - Y_e_con(i,j,k) = Y_e(i,j,k) * dens(i,j,k) + do k = 1,cctk_lsh(3) + do j = 1,cctk_lsh(2) + do i = 1,cctk_lsh(1) + Y_e_con(i,j,k) = Y_e(i,j,k) * dens(i,j,k) enddo enddo enddo |