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_PPMReconstruct_drv_opt.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_PPMReconstruct_drv_opt.F90')
-rw-r--r-- | src/GRHydro_PPMReconstruct_drv_opt.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GRHydro_PPMReconstruct_drv_opt.F90 b/src/GRHydro_PPMReconstruct_drv_opt.F90 index 1a5fe04..fdee925 100644 --- a/src/GRHydro_PPMReconstruct_drv_opt.F90 +++ b/src/GRHydro_PPMReconstruct_drv_opt.F90 @@ -57,11 +57,11 @@ subroutine GRHydro_PPMReconstruct_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)) :: g11, g12, g13, g22, g23, g33 + CCTK_REAL, DIMENSION(cctk_ash1,cctk_ash2,cctk_ash3) :: g11, g12, g13, g22, g23, g33 pointer (pg11,g11), (pg12,g12), (pg13,g13), (pg22,g22), (pg23,g23), (pg33,g33) - CCTK_REAL, DIMENSION(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)) :: beta1, beta2, beta3 + CCTK_REAL, DIMENSION(cctk_ash1,cctk_ash2,cctk_ash3) :: beta1, beta2, beta3 pointer (pbeta1,beta1), (pbeta2,beta2), (pbeta3,beta3) - CCTK_REAL, DIMENSION(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3),3) :: vup + CCTK_REAL, DIMENSION(cctk_ash1,cctk_ash2,cctk_ash3,3) :: vup pointer (pvup,vup) logical :: apply_enhanced_ppm |