diff options
| author | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-06-07 18:00:02 +0000 |
|---|---|---|
| committer | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-06-07 18:00:02 +0000 |
| commit | cd5b45422fc20e3e4a65595d3ef0f4e654fc097e (patch) | |
| tree | 8487605d9d3b55372deea99be2c08ef9850ce336 /src/GRHydro_ParamCheck.F90 | |
| parent | 84f3a1252667fc8e69a9dc59b25e90f0f517c261 (diff) | |
* implement param check warning that MHD is not implemented and abort.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@118 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_ParamCheck.F90')
| -rw-r--r-- | src/GRHydro_ParamCheck.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GRHydro_ParamCheck.F90 b/src/GRHydro_ParamCheck.F90 index 07ef0ee..f311659 100644 --- a/src/GRHydro_ParamCheck.F90 +++ b/src/GRHydro_ParamCheck.F90 @@ -93,6 +93,8 @@ subroutine GRHydro_ParamCheck(CCTK_ARGUMENTS) if (CCTK_EQUALS(Bvec_evolution_method,"GRHydro")) then MHD = 1 + ! issue a fatal warning, since MHD is not implemented yet + call CCTK_PARAMWARN("MHD is not yet implemented. Please run with GRHydro::Bvec_evolution_method='none'."); else MHD = 0 endif |