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_Prim2ConAM.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_Prim2ConAM.F90')
-rw-r--r-- | src/GRHydro_Prim2ConAM.F90 | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/GRHydro_Prim2ConAM.F90 b/src/GRHydro_Prim2ConAM.F90 index 2aee515..5544c86 100644 --- a/src/GRHydro_Prim2ConAM.F90 +++ b/src/GRHydro_Prim2ConAM.F90 @@ -56,20 +56,8 @@ subroutine primitive2conservativeAM(CCTK_ARGUMENTS) integer :: i, j, k CCTK_REAL :: gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_sdetl,& gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_sdetr - !CCTK_REAL :: g11l,g12l,g13l,g22l,g23l,g33l,& - ! g11r,g12r,g13r,g22r,g23r,g33r CCTK_REAL :: xtemp(1) character(len=256) NaN_WarnLine - !TARGET gxx, gxy, gxz, gyy, gyz, gzz - - !CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 - - !g11 => gxx - !g12 => gxy - !g13 => gxz - !g22 => gyy - !g23 => gyz - !g33 => gzz ! constraint transport needs to be able to average fluxes in the directions ! other that flux_direction, which in turn need the primitives on interfaces |