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_SourceAM.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_SourceAM.F90')
-rw-r--r-- | src/GRHydro_SourceAM.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GRHydro_SourceAM.F90 b/src/GRHydro_SourceAM.F90 index b4000e3..5b11332 100644 --- a/src/GRHydro_SourceAM.F90 +++ b/src/GRHydro_SourceAM.F90 @@ -93,13 +93,13 @@ subroutine SourceTermsAM(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)) :: k11, k12, k13, k22, k23, k33 + CCTK_REAL, DIMENSION(cctk_ash1,cctk_ash2,cctk_ash3) :: k11, k12, k13, k22, k23, k33 pointer (pk11,k11), (pk12,k12), (pk13,k13), (pk22,k22), (pk23,k23), (pk33,k33) - 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, 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 |