diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-22 02:29:21 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-22 02:29:21 +0000 |
commit | 224688e5ec9176d2b5a86af9c7a8e2fbd998b7c9 (patch) | |
tree | 0fbe0508eec93d87787ae37dae8dc59e76ad8abf /src/GRHydro_ParamCheck.F90 | |
parent | aceff30cb080dae8a159910c6e21a22e60d0dd01 (diff) |
Revert "GRHydro: do not access whichpsidcspeed in ParamCheck unless evolve_MHD"
This reverts commit c2122aa2b4762388eb90cc159750aa4d418b112d.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@370 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_ParamCheck.F90')
-rw-r--r-- | src/GRHydro_ParamCheck.F90 | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/GRHydro_ParamCheck.F90 b/src/GRHydro_ParamCheck.F90 index e65486e..132bb7d 100644 --- a/src/GRHydro_ParamCheck.F90 +++ b/src/GRHydro_ParamCheck.F90 @@ -126,7 +126,7 @@ subroutine GRHydro_ParamCheck(CCTK_ARGUMENTS) end if - if(evolve_MHD.ne.0 .and. clean_divergence.ne.0) then + if(clean_divergence.ne.0) then if (CCTK_EQUALS(psidcspeed,"char speed")) then whichpsidcspeed = 0 else if (CCTK_EQUALS(psidcspeed,"light speed")) then @@ -138,10 +138,6 @@ subroutine GRHydro_ParamCheck(CCTK_ARGUMENTS) end if end if - if(clean_divergence.eq.0 .and. evolve_MHD.ne.0) then - call CCTK_WARN(1, "You activated divergence cleaning but do not evolve a magnetic field. At best, nothing should happen, be preapered for a segfault otherwise.") - 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 |