diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-07-05 05:36:53 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-07-05 05:36:53 +0000 |
| commit | f384dc0124ef59e7a94e98fb8a775bf99e74b774 (patch) | |
| tree | 7495b4856d7c7cde72e4d065e69bf8e5bfbcc610 /src/GRHydro_UpdateMask.F90 | |
| parent | a3c72c9f146e97f8e275b2e5aeb53bb1d99e362f (diff) | |
GRHydro: remove SAVE attribtute from _p and _pp vars
this was harmless since the pointers to grid functions affected were OMP
shared anyway
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@388 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_UpdateMask.F90')
| -rw-r--r-- | src/GRHydro_UpdateMask.F90 | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/GRHydro_UpdateMask.F90 b/src/GRHydro_UpdateMask.F90 index 8a916b3..02934d7 100644 --- a/src/GRHydro_UpdateMask.F90 +++ b/src/GRHydro_UpdateMask.F90 @@ -363,14 +363,12 @@ subroutine GRHydro_InitialAtmosphereReset(CCTK_ARGUMENTS) CCTK_INT :: GRHydro_UseGeneralCoordinates CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup - CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11_p => Null(), g12_p => Null(), & - g13_p => Null(), g22_p => Null(), & - g23_p => Null(), g33_p => Null() - CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup_p => Null() - CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11_p_p => Null(), g12_p_p => Null(), & - g13_p_p => Null(), g22_p_p => Null(), & - g23_p_p => Null(), g33_p_p => Null() - CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup_p_p => Null() + CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11_p, g12_p, g13_p, g22_p, & + g23_p, g33_p + CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup_p + CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11_p_p, g12_p_p, g13_p_p, g22_p_p, & + g23_p_p, g33_p_p + CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup_p_p ! begin EOS Omni vars integer :: n,keytemp,anyerr,keyerr(1) |