RIT MHD dev:

 Balsara's and Komissarov's shock tube tests.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@123 ac85fae7-cede-4708-beff-ae01c7fa1c26

1 files changed, 30 insertions, 0 deletions

diff --git a/schedule.ccl b/schedule.ccl
index a35dfdb..7040982 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -5,6 +5,13 @@ schedule GRHydro_InitData_CheckParameters  AT CCTK_PARAMCHECK
   LANG: C
 } "Check parameters"
 
+if (CCTK_Equals(initial_hydro,"Monopole")) {
+  schedule GRHydro_MonopoleM in HydroBase_Initial
+    {
+      LANG: Fortran
+    } "Monopole initial data - MHD version"
+}
+
 if (CCTK_Equals(initial_hydro,"shocktube")) {
   if(CCTK_Equals(Bvec_evolution_method,"GRHydro"))
   {
@@ -13,6 +20,22 @@ if (CCTK_Equals(initial_hydro,"shocktube")) {
       LANG: Fortran
     } "Shocktube initial data - MHD version"
 
+    if(CCTK_Equals(shocktube_type,"diagshock")) 
+    {
+      schedule GRHydro_Diagshock_BoundaryM IN ApplyBCs AFTER BoundaryConditions AFTER Boundary::Boundary_ClearSelection
+      {
+        LANG: Fortran	
+      } "Diagonal shock boundary conditions"
+    }
+
+    if(CCTK_Equals(shocktube_type,"diagshock2d")) 
+    {
+      schedule GRHydro_Diagshock2D_BoundaryM IN ApplyBCs AFTER BoundaryConditions AFTER Boundary::Boundary_ClearSelection
+      {
+        LANG: Fortran	
+      } "2-D Diagonal shock boundary conditions"
+    }
+
   } else {
     schedule GRHydro_shocktube in HydroBase_Initial
     {
@@ -22,6 +45,13 @@ if (CCTK_Equals(initial_hydro,"shocktube")) {
   }
 }
 
+if (CCTK_Equals(initial_hydro,"cylexp")) {
+  schedule GRHydro_CylindricalExplosionM in HydroBase_Initial
+    {
+      LANG: Fortran
+    } "Cylindrical Explosion initial data - MHD-only"
+}
+
 if (CCTK_Equals(initial_data,"con2primtest")) {
   STORAGE:GRHydro_init_data_reflevel
   schedule GRHydro_Init_Data_RefinementLevel IN HydroBase_Initial BEFORE GRHydro_con2primtest