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

rhaas at tapir.caltech.edu rhaas at tapir.caltech.edu
Thu Jun 21 21:29:21 CDT 2012


User: rhaas
Date: 2012/06/21 09:29 PM

Modified:
 /trunk/src/
  GRHydro_ParamCheck.F90

Log:
 Revert "GRHydro: do not access whichpsidcspeed in ParamCheck unless evolve_MHD"
 
 This reverts commit c2122aa2b4762388eb90cc159750aa4d418b112d.

File Changes:

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

File [modified]: GRHydro_ParamCheck.F90
Delta lines: +1 -5
===================================================================
--- trunk/src/GRHydro_ParamCheck.F90	2012-06-22 02:29:18 UTC (rev 369)
+++ trunk/src/GRHydro_ParamCheck.F90	2012-06-22 02:29:21 UTC (rev 370)
@@ -126,7 +126,7 @@
   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 @@
     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



More information about the Commits mailing list