diff options
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") |