User: rhaas Date: 2012/05/13 02:12 PM
Modified: /trunk/src/ GRHydro_Boundaries.F90
Log: GRHydro: Fixed minor bugs in registration in Boundaries
Some variables were stil set to "Flat" boundaries even though "None" is supposed to be set.
Patch by Christian Reisswig.
File Changes:
Directory: /trunk/src/ ======================
File [modified]: GRHydro_Boundaries.F90 Delta lines: +9 -3 =================================================================== --- trunk/src/GRHydro_Boundaries.F90 2012-05-13 19:12:00 UTC (rev 324) +++ trunk/src/GRHydro_Boundaries.F90 2012-05-13 19:12:48 UTC (rev 325) @@ -260,8 +260,14 @@ "HydroBase::press", "None") ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, & "HydroBase::eps", "None") - ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, & - "HydroBase::vel", "None") + if (general_coordinates .ne. 0) then + ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, & + "GRHydro::lvel", "None") + else + ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, & + "HydroBase::vel", "None") + endif + if(evolve_mhd.ne.0) then if (general_coordinates .ne. 0) then ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, & @@ -299,7 +305,7 @@ "HydroBase::entropy", "None") endif
- end if + endif
if (CCTK_EQUALS(bound,"scalar")) then call CCTK_WARN(0, "Until somebody uses this I see no reason to support it")