diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-05 20:31:21 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-05 20:31:21 +0000 |
| commit | 988e3700679f46bd6d3d64a6f8f4dd944ae33f00 (patch) | |
| tree | d6b8df134c2ddbb45c862fa65c0a76216832d374 /src/GRHydro_Boundaries.F90 | |
| parent | e45b340a578276540e8d1707d45c5db27f0b2df5 (diff) | |
GRHydro: Verbosity on which boundary selction routine is executed.
Patch by Christian Reisswig.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@344 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Boundaries.F90')
| -rw-r--r-- | src/GRHydro_Boundaries.F90 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/GRHydro_Boundaries.F90 b/src/GRHydro_Boundaries.F90 index 099e195..b3d153d 100644 --- a/src/GRHydro_Boundaries.F90 +++ b/src/GRHydro_Boundaries.F90 @@ -199,6 +199,8 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS) general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH) + if (verbose.eq.1) call CCTK_INFO("Selecting conserved BC (and primitive BC if selected)") + !!$Flat boundaries if required if (CCTK_EQUALS(bound,"flat")) then @@ -381,6 +383,9 @@ subroutine GRHydro_SelectPrimitiveBoundaries(CCTK_ARGUMENTS) ! The commented out code are those primitives which do not require and explicit ! initial guess for Con2Prim. The guesses are either not needed or computed from other quantities! + if (verbose.eq.1) call CCTK_INFO("Selecting primitive BC") + + if (CCTK_EQUALS(bound,"flat")) then !ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, & |