diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-10-29 22:27:49 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-10-29 22:27:49 +0000 |
commit | f497d2aaaf1596abf75a3a4332ad5b4fede846b3 (patch) | |
tree | 4b13376e87bb8ca6bc290565e26241bbeaaf5924 /src/GRHydro_ENOReconstruct_drv.F90 | |
parent | 31cb95323097f00f18017912349707beff856bc9 (diff) |
GRHydro: use ashX instead of lsh(X) when declaring array sizes
1.) one should use ash when declaring array sizes
2.) intel11 chokes on lsh(X), this was already in the first Cray pointer
patch
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@585 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_ENOReconstruct_drv.F90')
-rw-r--r-- | src/GRHydro_ENOReconstruct_drv.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GRHydro_ENOReconstruct_drv.F90 b/src/GRHydro_ENOReconstruct_drv.F90 index 907efff..1c21799 100644 --- a/src/GRHydro_ENOReconstruct_drv.F90 +++ b/src/GRHydro_ENOReconstruct_drv.F90 @@ -66,7 +66,7 @@ subroutine GRHydro_ENOReconstruct_drv(CCTK_ARGUMENTS) ! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - CCTK_REAL, DIMENSION(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3),3) :: vup, Bprim + CCTK_REAL, DIMENSION(cctk_ash1,cctk_ash2,cctk_ash3,3) :: vup, Bprim pointer (pvup,vup), (pBprim,Bprim) if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then |