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")