diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-10-27 04:16:35 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-10-27 04:16:35 +0000 |
commit | e937d71b0b60c2e1d59332d2dfa650b840f06ebc (patch) | |
tree | 9341dfd1e39efe4b899dc948393540a96ddf9745 /src/GRHydro_ENOReconstruct_drv.F90 | |
parent | 777d3d5417c9833eed108f298698ac934b7dd65e (diff) |
GRHydro: replace Fortan pointers with Cray pointers
Intel 12 seems to like these better. Otherwise GRHydro_Con2PrimM.F90
takes very long to compile.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@580 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_ENOReconstruct_drv.F90')
-rw-r--r-- | src/GRHydro_ENOReconstruct_drv.F90 | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/src/GRHydro_ENOReconstruct_drv.F90 b/src/GRHydro_ENOReconstruct_drv.F90 index 0dfdde9..907efff 100644 --- a/src/GRHydro_ENOReconstruct_drv.F90 +++ b/src/GRHydro_ENOReconstruct_drv.F90 @@ -47,11 +47,6 @@ subroutine GRHydro_ENOReconstruct_drv(CCTK_ARGUMENTS) implicit none - ! save memory when MP is not used - ! TARGET as to be before DECLARE_CCTK_ARGUMENTS for gcc 4.1 - TARGET vel, lvel - TARGET Bvec, lBvec - DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS @@ -71,14 +66,15 @@ subroutine GRHydro_ENOReconstruct_drv(CCTK_ARGUMENTS) ! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup, Bprim + CCTK_REAL, DIMENSION(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3),3) :: vup, Bprim + pointer (pvup,vup), (pBprim,Bprim) if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then - vup => lvel - Bprim => lBvec + pvup = loc(lvel) + pBprim = loc(lBvec) else - vup => vel - Bprim => Bvec + pvup = loc(vel) + pBprim = loc(Bvec) end if allocate(trivial_rp(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)),STAT=ierr) |