Snapshot of ET GRHydro_InitData rev. 132 with a poloidal magnetic field routine

added.

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

1 files changed, 64 insertions, 2 deletions

diff --git a/schedule.ccl b/schedule.ccl
index 7040982..2e32506 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -5,11 +5,32 @@ schedule GRHydro_InitData_CheckParameters  AT CCTK_PARAMCHECK
   LANG: C
 } "Check parameters"
 
-if (CCTK_Equals(initial_hydro,"Monopole")) {
+if (CCTK_Equals(initial_hydro,"monopole")) {
   schedule GRHydro_MonopoleM in HydroBase_Initial
     {
       LANG: Fortran
-    } "Monopole initial data - MHD version"
+    } "Monopole initial data"
+}
+
+if (CCTK_Equals(initial_hydro,"rotor")) {
+  schedule GRHydro_RotorM in HydroBase_Initial
+    {
+      LANG: Fortran
+    } "MHD rotor initial data"
+}
+
+if (CCTK_Equals(initial_hydro,"advectedloop")) {
+  schedule GRHydro_AdvectedLoopM in HydroBase_Initial
+    {
+      LANG: Fortran
+    } "MHD advected loop initial data"
+}
+
+if (CCTK_Equals(initial_hydro,"alfvenwave")) {
+  schedule GRHydro_AlfvenWaveM in HydroBase_Initial
+    {
+      LANG: Fortran
+    } "Circularly polarized Alfven wave initial data"
 }
 
 if (CCTK_Equals(initial_hydro,"shocktube")) {
@@ -163,3 +184,44 @@ if (CCTK_Equals(initial_hydro,"simple_wave")) {
 
 
 }
+
+if (CCTK_EQUALS(initial_hydro, "hydro_bondi_solution_iso"))
+{
+  SCHEDULE GRHydro_Bondi_Iso IN HydroBase_Initial AFTER HydroBase_ExcisionMaskSetup
+  {
+    LANGUAGE: Fortran
+  } "setup GRHydro vars for the hydrodynamic Bondi solution"
+}
+
+if (CCTK_EQUALS(initial_hydro, "magnetized_bondi_solution_iso"))
+{
+  SCHEDULE GRHydro_BondiM_Iso IN HydroBase_Initial AFTER HydroBase_ExcisionMaskSetup
+  {
+    LANGUAGE: Fortran
+  } "setup GRHydro vars for the magnetized Bondi solution"
+}
+
+if (CCTK_EQUALS(initial_hydro, "hydro_bondi_solution"))
+{
+  SCHEDULE GRHydro_Bondi IN HydroBase_Initial AFTER HydroBase_ExcisionMaskSetup
+  {
+    LANGUAGE: C
+  } "setup GRHydro vars for the hydrodynamic Bondi solution"
+}
+
+if (CCTK_EQUALS(initial_hydro, "magnetized_bondi_solution"))
+{
+  SCHEDULE GRHydro_BondiM IN HydroBase_Initial AFTER HydroBase_ExcisionMaskSetup
+  {
+    LANGUAGE: C
+  } "setup GRHydro vars for the magnetized Bondi solution"
+}
+
+if (CCTK_EQUALS(initial_Bvec, "poloidalmagfield"))
+{
+  SCHEDULE GRHydro_PoloidalMagFieldM IN HydroBase_Initial AFTER TOV_Initial_Data
+  {
+    LANGUAGE: Fortran
+  } "Set up a poloidal magnetic field. It expects the other fluid variables already to be set, as for example in the TOV solution"
+}
+