From 110f7cf4eb84f0e6498b8c7e6de86f47c40fd98b Mon Sep 17 00:00:00 2001 From: rhaas Date: Mon, 2 Dec 2013 21:50:34 +0000 Subject: GRHydro: use ash instead of lsh when allocating arrays git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@594 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45 --- src/GRHydro_PPMMReconstruct_drv.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/GRHydro_PPMMReconstruct_drv.F90') diff --git a/src/GRHydro_PPMMReconstruct_drv.F90 b/src/GRHydro_PPMMReconstruct_drv.F90 index 003f8c9..bba844a 100644 --- a/src/GRHydro_PPMMReconstruct_drv.F90 +++ b/src/GRHydro_PPMMReconstruct_drv.F90 @@ -61,15 +61,15 @@ subroutine GRHydro_PPMMReconstruct_drv(CCTK_ARGUMENTS) CCTK_INT :: ierr - allocate(trivial_rp(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),STAT=ierr) + allocate(trivial_rp(cctk_ash(1),cctk_ash(2),cctk_ash(3)),STAT=ierr) if (ierr .ne. 0) then call CCTK_WARN(0, "Allocation problems with trivial_rp") end if !!$ The dum variables are used as dummies if MHD on but divergence cleaning off - allocate(dum(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),& - dump(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),& - dumm(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),STAT=ierr) + allocate(dum(cctk_ash(1),cctk_ash(2),cctk_ash(3)),& + dump(cctk_ash(1),cctk_ash(2),cctk_ash(3)),& + dumm(cctk_ash(1),cctk_ash(2),cctk_ash(3)),STAT=ierr) call SpaceMask_GetTypeBits(type_bitsx, "Hydro_RiemannProblemX") call SpaceMask_GetStateBits(trivialx, "Hydro_RiemannProblemX", & -- cgit v1.2.3