This commit was generated by cvs2svn to compensate for changes in r2, which

included commits to RCS files with non-trunk default branches.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Time/trunk@3 5633253d-7678-4964-a54d-f87795f8ee59

6 files changed, 99 insertions, 0 deletions

diff --git a/README b/README
new file mode 100644
index 0000000..aae1da0
--- /dev/null
+++ b/README
@@ -0,0 +1,10 @@
+Cactus Code Thorn Time
+Authors    : Gabrielle Allen
+CVS info   : $Header$
+--------------------------------------------------------------------------
+
+Thorn Time sets the timestep for an evolution. Currently it
+uses a simple Courant condition with speed one. That is
+
+cctk_delta_time = dtfac * min(cctk_delta_space)
+
diff --git a/interface.ccl b/interface.ccl
new file mode 100644
index 0000000..1009f1e
--- /dev/null
+++ b/interface.ccl
@@ -0,0 +1,5 @@
+# Interface definition for thorn Time
+# $Header$
+
+implements: time
+
diff --git a/param.ccl b/param.ccl
new file mode 100644
index 0000000..e172a44
--- /dev/null
+++ b/param.ccl
@@ -0,0 +1,10 @@
+# Parameter definitions for thorn Time
+# $Header$
+
+restricted:
+
+REAL dtfac "The standard timestep condition dt = dtfac*max(delta_space)"
+{
+ 0:* :: "Probably only makes sense to be bigger than zero"
+} 0.5 
+
diff --git a/schedule.ccl b/schedule.ccl
new file mode 100644
index 0000000..b8aca19
--- /dev/null
+++ b/schedule.ccl
@@ -0,0 +1,10 @@
+# Schedule definitions for thorn Time
+# $Header$
+
+schedule Time_Simple at CCTK_BASEGRID after CartGrid3D
+{
+  LANG: C
+} "Set timestep based on speed one Courant condition"
+
+
+
diff --git a/src/Simple.c b/src/Simple.c
new file mode 100644
index 0000000..9111c73
--- /dev/null
+++ b/src/Simple.c
@@ -0,0 +1,55 @@
+ /*@@
+   @file      Simple.c
+   @date      September 4 1999
+   @author    Gabrielle Allen
+   @desc 
+   Standard specification of timestep
+   @enddesc 
+ @@*/
+
+#include "cctk.h"
+#include "cctk_arguments.h"
+#include "cctk_parameters.h"
+
+
+void Time_Simple(CCTK_CARGUMENTS)
+{
+  DECLARE_CCTK_PARAMETERS
+  DECLARE_CCTK_CARGUMENTS
+
+  CCTK_REAL min_spacing;
+  char *message;
+
+  if (cctk_dim>=1)
+  {
+    min_spacing = cctk_delta_space[0];
+  }
+
+  if (cctk_dim>=2)
+  {
+    min_spacing = (min_spacing<cctk_delta_space[1] ?
+	min_spacing : cctk_delta_space[1]);
+  }
+  
+  if (cctk_dim>=3)
+  {
+    min_spacing = (min_spacing<cctk_delta_space[2] ?
+	min_spacing : cctk_delta_space[2]);
+  }
+
+  if (cctk_dim>=4)
+  {
+    CCTK_WARN(0,"Time Step now defined for greater than 4 dimensions");
+  }
+
+  cctkGH->cctk_delta_time = dtfac*min_spacing;
+  
+  message = (char *)malloc(1024*sizeof(char));
+  sprintf(message,"Time step set to %f",cctkGH->cctk_delta_time);
+  CCTK_INFO(message);
+  free(message);
+
+}
+
+
+
diff --git a/src/make.code.defn b/src/make.code.defn
new file mode 100644
index 0000000..8ebd1fb
--- /dev/null
+++ b/src/make.code.defn
@@ -0,0 +1,9 @@
+# Main make.code.defn file for thorn Time
+# $Header$
+
+# Source files in this directory
+SRCS = Simple.c 
+
+# Subdirectories containing source files
+SUBDIRS = 
+