diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-12-02 21:50:34 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-12-02 21:50:34 +0000 |
commit | 110f7cf4eb84f0e6498b8c7e6de86f47c40fd98b (patch) | |
tree | c7c933bc83678f952859cee0b3cadeb0e7304cb2 /src/GRHydro_ReconstructPoly.F90 | |
parent | 9302e3f7db30ad1cca1af84862d78b0feeae7596 (diff) |
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
Diffstat (limited to 'src/GRHydro_ReconstructPoly.F90')
-rw-r--r-- | src/GRHydro_ReconstructPoly.F90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/GRHydro_ReconstructPoly.F90 b/src/GRHydro_ReconstructPoly.F90 index 6501d1a..60c8a00 100644 --- a/src/GRHydro_ReconstructPoly.F90 +++ b/src/GRHydro_ReconstructPoly.F90 @@ -74,18 +74,18 @@ subroutine ReconstructionPolytype(CCTK_ARGUMENTS) CCTK_INT :: GRHydro_UseGeneralCoordinates - 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 - allocate(psi4(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),& - lbetax(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),& - lbetay(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),& - lbetaz(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),& - 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(psi4(cctk_ash(1),cctk_ash(2),cctk_ash(3)),& + lbetax(cctk_ash(1),cctk_ash(2),cctk_ash(3)),& + lbetay(cctk_ash(1),cctk_ash(2),cctk_ash(3)),& + lbetaz(cctk_ash(1),cctk_ash(2),cctk_ash(3)),& + 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) if (ierr .ne. 0) then call CCTK_WARN(0, "Allocation problems with lbeta") |