diff options
author | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-05-26 23:40:05 +0000 |
---|---|---|
committer | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-05-26 23:40:05 +0000 |
commit | 1eee8cf0b4736d858f432eaada22b66e7e07f572 (patch) | |
tree | d6c5b1297d697179b454ccb56138b12ff4512223 /src/GRHydro_ParamCheck.F90 | |
parent | 44fb191dd3df6bc0836eaa6156d4ff9a1e8c6bbf (diff) |
* initial structural modifications to start with MHD development (Noble/Ott)
-> add comoving b-field: bcom[3] and bcom0
-> add integer variable MHD which is set in ParamCheck to 0 or 1
according to HydroBase::Bvec_evolution_method being GRHydro or something
else (don't want to do string comparisons very often)
-> skeleton routine Conservative2PrimitiveM in separate .F90 file
-> extend keyword Bvec_evolution_method with "GRHydro"
* code compiles, should not hurt anything already there, does not do
anyting (yet)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@115 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_ParamCheck.F90')
-rw-r--r-- | src/GRHydro_ParamCheck.F90 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/GRHydro_ParamCheck.F90 b/src/GRHydro_ParamCheck.F90 index 51da4f0..07ef0ee 100644 --- a/src/GRHydro_ParamCheck.F90 +++ b/src/GRHydro_ParamCheck.F90 @@ -90,5 +90,14 @@ subroutine GRHydro_ParamCheck(CCTK_ARGUMENTS) if (CCTK_EQUALS(bound,"static")) then call CCTK_PARAMWARN("GRHydro::bound = 'static' is no longer supported, use 'none' instead"); end if + + if (CCTK_EQUALS(Bvec_evolution_method,"GRHydro")) then + MHD = 1 + else + MHD = 0 + endif + + + end subroutine GRHydro_ParamCheck |