From 7c7511d577c233d97a5edf7f4403768935bf696b Mon Sep 17 00:00:00 2001
From: knarf <knarf@ac85fae7-cede-4708-beff-ae01c7fa1c26>
Date: Wed, 18 Nov 2009 16:36:37 +0000
Subject: This is a _temporary_ repository to be able to start to work on the
 code right now. I have put in the public version of Whisky to start from.

Everybody with commit rights should get commit messages (and the other
way around). It should not be a problem to add people to that list, just
ask. I don't want to get into political problems because someone feels
excluded, but I also don't want to give everyone access per se.

Frank



git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@3 ac85fae7-cede-4708-beff-ae01c7fa1c26
---
 schedule.ccl | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 schedule.ccl

(limited to 'schedule.ccl')

diff --git a/schedule.ccl b/schedule.ccl
new file mode 100644
index 0000000..36f1461
--- /dev/null
+++ b/schedule.ccl
@@ -0,0 +1,80 @@
+# Schedule definitions for thorn Whisky_Init_Data
+
+schedule Whisky_InitData_CheckParameters  AT CCTK_PARAMCHECK
+{
+  LANG: C
+} "Check parameters"
+
+if (CCTK_Equals(whisky_initial_data,"shocktube")) {
+  schedule Whisky_shocktube in HydroBase_Initial
+  {
+    LANG: Fortran
+  } "Shocktube initial data"
+}
+
+if (CCTK_Equals(initial_data,"con2primtest")) {
+  STORAGE:whisky_init_data_reflevel
+  schedule Whisky_Init_Data_RefinementLevel IN HydroBase_Initial BEFORE Whisky_con2primtest
+  {
+    LANG: Fortran
+  } "Calculate current refinement level"
+
+  schedule Whisky_con2primtest in HydroBase_Initial
+  {
+    LANG: Fortran
+  } "Testing the conservative to primitive solver"
+}
+
+if (CCTK_Equals(initial_data,"con2prim2con_test")) {
+  STORAGE:whisky_init_data_reflevel
+  schedule Whisky_Init_Data_RefinementLevel IN HydroBase_Initial BEFORE c2p2c
+  {
+    LANG: Fortran
+  } "Calculate current refinement level"
+
+  schedule c2p2c in HydroBase_Initial
+  {
+    LANG: Fortran
+  } "Testing conservative to primitive to conservative"
+}
+
+if (CCTK_Equals(initial_data,"reconstruction_test")) {
+  schedule Whisky_reconstruction_test in HydroBase_Initial
+  {
+    LANG: Fortran
+    STORAGE: whisky_prim_bext
+    STORAGE: whisky_scalars
+    OPTIONS: global loop-local
+  } "Testing the reconstruction"
+}
+
+if (CCTK_Equals(whisky_initial_data,"only_atmo")) {
+  schedule Whisky_Only_Atmo in HydroBase_Initial
+  {
+    LANG: Fortran
+  } "Only atmosphere as initial data"
+}
+
+if (CCTK_Equals(whisky_initial_data,"read_conformal")) {
+  schedule Whisky_ReadConformalData in HydroBase_Initial
+  {
+    LANG: Fortran
+  } "Set the missing quantities, after reading in from file initial data from conformally-flat codes (Garching)"
+}
+
+if (CCTK_Equals(whisky_initial_data,"simple_wave")) {
+  STORAGE: simple_wave_grid_functions
+  STORAGE: simple_wave_scalars
+  schedule Whisky_SimpleWave in HydroBase_Initial
+  {
+    LANG: Fortran
+  } "Set initial data from Anile Miller Motta, Phys.Fluids. 26, 1450 (1983)"
+
+  STORAGE: simple_wave_output
+  schedule Whisky_SimpleWave_Analysis AT CCTK_ANALYSIS AFTER Whisky_Entropy
+  {
+    LANG: Fortran
+  } "Compute some output variables for the Simple Wave"
+
+
+}
-- 
cgit v1.2.3