[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 409)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2012/08/14 01:39 AM

Modified:
 /trunk/src/
  GRHydro_ParamCheck.F90

Log:
 GRHydro: fix inverted logic in ParamWarn about divergence cleaning
 
 From: Roland Haas <roland.haas at physics.gatech.edu>

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_ParamCheck.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_ParamCheck.F90	2012-08-09 22:09:37 UTC (rev 408)
+++ trunk/src/GRHydro_ParamCheck.F90	2012-08-14 06:39:18 UTC (rev 409)
@@ -138,7 +138,7 @@
     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