diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-09-15 16:42:47 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-09-15 16:42:47 +0000 |
commit | 3fe900e7b6808a214b3341bf923bd57a67ce9450 (patch) | |
tree | 54c3c92a17618328e021c2b9b21d27c2f9116c9a /src/GRHydro_ParamCheck.F90 | |
parent | 52ed503635a6c5dc06bd8bd8866b6eb6f00ec28b (diff) |
add option to smoothly dampen Tmunu to vacuum outside of a given radius
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@266 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_ParamCheck.F90')
-rw-r--r-- | src/GRHydro_ParamCheck.F90 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/GRHydro_ParamCheck.F90 b/src/GRHydro_ParamCheck.F90 index 2c29d13..181a1cb 100644 --- a/src/GRHydro_ParamCheck.F90 +++ b/src/GRHydro_ParamCheck.F90 @@ -125,5 +125,9 @@ subroutine GRHydro_ParamCheck(CCTK_ARGUMENTS) end if end if + if (Tmunu_damping_radius_min .gt. Tmunu_damping_radius_max) then + call CCTK_WARN(0, "Minimum damping radius is greater than maximum damping radius!") + end if + end subroutine GRHydro_ParamCheck |