diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-08-14 06:39:18 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-08-14 06:39:18 +0000 |
commit | aa3f5cca41b9b67e16cde545cf14a93633f3d6cf (patch) | |
tree | 95d645a2857227883b41686fbea03441be0df7f9 /src | |
parent | 037fa6222e5c21006f77b8558884ca275ff530e5 (diff) |
GRHydro: fix inverted logic in ParamWarn about divergence cleaning
From: Roland Haas <roland.haas@physics.gatech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@409 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src')
-rw-r--r-- | src/GRHydro_ParamCheck.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GRHydro_ParamCheck.F90 b/src/GRHydro_ParamCheck.F90 index e65486e..b9b3997 100644 --- a/src/GRHydro_ParamCheck.F90 +++ b/src/GRHydro_ParamCheck.F90 @@ -138,7 +138,7 @@ subroutine GRHydro_ParamCheck(CCTK_ARGUMENTS) end if end if - if(clean_divergence.eq.0 .and. evolve_MHD.ne.0) then + if(clean_divergence.ne.0 .and. evolve_MHD.eq.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 |