From ed1c9f732192bdc8d4f6d5b3237a621855f1b23a Mon Sep 17 00:00:00 2001 From: bmundim Date: Wed, 27 Apr 2011 22:25:23 +0000 Subject: 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 --- schedule.ccl | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) (limited to 'schedule.ccl') 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 -- cgit v1.2.3