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_Con2PrimHot.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_Con2PrimHot.F90')
-rw-r--r-- | src/GRHydro_Con2PrimHot.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GRHydro_Con2PrimHot.F90 b/src/GRHydro_Con2PrimHot.F90 index 4cd07d1..75175d2 100644 --- a/src/GRHydro_Con2PrimHot.F90 +++ b/src/GRHydro_Con2PrimHot.F90 @@ -26,9 +26,9 @@ subroutine Conservative2PrimitiveHot(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),3) :: vup + CCTK_REAL, DIMENSION(cctk_ash1,cctk_ash2,cctk_ash3,3) :: vup pointer (pvup,vup) ! begin EOS Omni vars |