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

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2014/04/15 02:49 PM

Modified:
 /trunk/src/
  GRHydro_Boundaries.F90

Log:
 GRHydro: remove unused variables in boundary routine

File Changes:

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

File [modified]: GRHydro_Boundaries.F90
Delta lines: +0 -10
===================================================================
--- trunk/src/GRHydro_Boundaries.F90	2014-04-15 19:49:55 UTC (rev 635)
+++ trunk/src/GRHydro_Boundaries.F90	2014-04-15 19:49:58 UTC (rev 636)
@@ -175,7 +175,6 @@
 
   character(len=*), INTENT(IN) :: bcname
 
-  integer, dimension(3) :: sw
   integer :: ierr
   CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates
 
@@ -185,8 +184,6 @@
   
   ierr = 0 
 
-  sw = GRHydro_stencil
-
   general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH)
   do_Avec = CCTK_EQUALS(Bvec_evolution_method,"GRHydro_Avec")
   do_Bcons = CCTK_EQUALS(Bvec_evolution_method,"GRHydro")
@@ -307,7 +304,6 @@
   DECLARE_CCTK_PARAMETERS
   DECLARE_CCTK_FUNCTIONS
   
-  integer, dimension(3) :: sw
   integer :: ierr
   CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates
 
@@ -315,7 +311,6 @@
   CCTK_INT, parameter :: ione=1
   
   ierr = 0
-  sw = GRHydro_stencil
 
   general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH)
 
@@ -446,7 +441,6 @@
   DECLARE_CCTK_PARAMETERS
   DECLARE_CCTK_FUNCTIONS
   
-  integer, dimension(3) :: sw
   integer :: ierr
   CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates
 
@@ -454,7 +448,6 @@
   CCTK_INT, parameter :: ione=1
   
   ierr = 0
-  sw = GRHydro_stencil
 
   general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH)
 
@@ -582,16 +575,13 @@
   DECLARE_CCTK_PARAMETERS
   DECLARE_CCTK_FUNCTIONS
   
-  integer, dimension(3) :: sw
   integer :: ierr
 
   CCTK_INT, parameter :: faces=CCTK_ALL_FACES
   CCTK_INT, parameter :: ione=1
   
   ierr = 0
-  sw = GRHydro_stencil
 
-
 !!$Flat boundaries if required  
 
   if (verbose.eq.1) call CCTK_INFO("Selecting atmosphere mask BC")