diff options
Diffstat (limited to 'src/Simple.c')
-rw-r--r-- | src/Simple.c | 55 |
1 files changed, 55 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); + +} + + + |