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)