User: rhaas Date: 2013/05/29 11:35 AM

Modified: /trunk/src/ GRHydro_Boundaries.F90

Log: GRHydro: avoid implict save for ierr in boundary registration

From: Roland Haas rhaas@tapir.caltech.edu

File Changes:

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

File [modified]: GRHydro_Boundaries.F90 Delta lines: +11 -5 =================================================================== --- trunk/src/GRHydro_Boundaries.F90 2013-05-29 16:35:18 UTC (rev 533) +++ trunk/src/GRHydro_Boundaries.F90 2013-05-29 16:35:22 UTC (rev 534) @@ -40,9 +40,10 @@ DECLARE_CCTK_FUNCTIONS

integer, dimension(3) :: sym - integer :: ierr = 0 + integer :: ierr CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates

+ ierr = 0 sym(1) = 1 sym(2) = 1 sym(3) = 1 @@ -173,12 +174,14 @@ DECLARE_CCTK_FUNCTIONS

integer, dimension(3) :: sw - integer :: ierr = 0 + integer :: ierr CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates

CCTK_INT, parameter :: faces=CCTK_ALL_FACES CCTK_INT, parameter :: ione=1

+ ierr = 0 + sw = GRHydro_stencil

general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH) @@ -375,12 +378,13 @@ DECLARE_CCTK_FUNCTIONS

integer, dimension(3) :: sw - integer :: ierr = 0 + integer :: ierr CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates

CCTK_INT, parameter :: faces=CCTK_ALL_FACES CCTK_INT, parameter :: ione=1

+ ierr = 0 sw = GRHydro_stencil

general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH) @@ -513,12 +517,13 @@ DECLARE_CCTK_FUNCTIONS

integer, dimension(3) :: sw - integer :: ierr = 0 + integer :: ierr CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates

CCTK_INT, parameter :: faces=CCTK_ALL_FACES CCTK_INT, parameter :: ione=1

+ ierr = 0 sw = GRHydro_stencil

general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH) @@ -648,11 +653,12 @@ DECLARE_CCTK_FUNCTIONS

integer, dimension(3) :: sw - integer :: ierr = 0 + integer :: ierr

CCTK_INT, parameter :: faces=CCTK_ALL_FACES CCTK_INT, parameter :: ione=1

+ ierr = 0 sw = GRHydro_stencil