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