diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-05-29 16:35:22 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-05-29 16:35:22 +0000 |
commit | 2fa2d78adbdae10904c3cd32947c2df938d6f3f2 (patch) | |
tree | 23fc706f8ec61140885c34c071a00d0722e04334 | |
parent | 6e9f9a063d0b0c127bdcd9210e544c7c35e08b01 (diff) |
GRHydro: avoid implict save for ierr in boundary registration
From: Roland Haas <rhaas@tapir.caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@534 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
-rw-r--r-- | src/GRHydro_Boundaries.F90 | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/src/GRHydro_Boundaries.F90 b/src/GRHydro_Boundaries.F90 index 0f6db02..6a3ed60 100644 --- a/src/GRHydro_Boundaries.F90 +++ b/src/GRHydro_Boundaries.F90 @@ -40,9 +40,10 @@ subroutine GRHydro_InitSymBound(CCTK_ARGUMENTS) 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 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS) 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 @@ subroutine GRHydro_SelectPrimitiveInitialGuessesBoundaries(CCTK_ARGUMENTS) 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 @@ subroutine GRHydro_SelectPrimitiveBoundaries(CCTK_ARGUMENTS) 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 @@ subroutine GRHydro_SelectAtmosphereMaskBoundaries(CCTK_ARGUMENTS) 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 |