diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Simple.c | 55 | ||||
-rw-r--r-- | src/make.code.defn | 9 |
2 files changed, 64 insertions, 0 deletions
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 = + |