diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-01-14 14:23:44 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-01-14 14:23:44 +0000 |
commit | 9a0acd9e6addbcdbbe2905b5a986664ec646a861 (patch) | |
tree | 9a570e85ec2987e34214a79388aa22d0512c0d77 /src/GRHydro_Boundaries.F90 | |
parent | 62ca0a1533f9d1714dfc85af2ef24e8b1e48c700 (diff) |
GRHydro: CCTK_Equals -> CCTK_EQUALS
since only the later (a macro) contains the required ".ne. 0" to turn
the return value into a logical type
From: Roland Haas <roland.haas@physics.gatech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@460 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Boundaries.F90')
-rw-r--r-- | src/GRHydro_Boundaries.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GRHydro_Boundaries.F90 b/src/GRHydro_Boundaries.F90 index d864a10..90852fc 100644 --- a/src/GRHydro_Boundaries.F90 +++ b/src/GRHydro_Boundaries.F90 @@ -234,7 +234,7 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS) endif endif - if (CCTK_Equals(Bvec_evolution_method, "GRHydro_Avec")) then + if (CCTK_EQUALS(Bvec_evolution_method, "GRHydro_Avec")) then ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, & "HydroBase::Avec", "Flat") if (general_coordinates .ne. 0) then @@ -320,7 +320,7 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS) endif endif - if (CCTK_Equals(Bvec_evolution_method, "GRHydro_Avec")) then + if (CCTK_EQUALS(Bvec_evolution_method, "GRHydro_Avec")) then ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, & "HydroBase::Avec", "None") if (general_coordinates .ne. 0) then |