[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 388)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2012/07/05 12:36 AM

Modified:
 /trunk/src/
  GRHydro_UpdateMask.F90

Log:
 GRHydro: remove SAVE attribtute from _p and _pp vars
 
 this was harmless since the pointers to grid functions affected were OMP
 shared anyway

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_UpdateMask.F90
Delta lines: +6 -8
===================================================================
--- trunk/src/GRHydro_UpdateMask.F90	2012-07-05 05:36:52 UTC (rev 387)
+++ trunk/src/GRHydro_UpdateMask.F90	2012-07-05 05:36:53 UTC (rev 388)
@@ -363,14 +363,12 @@
   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)