/*@@
   @file      Simple.c
   @date      September 4 1999
   @author    Gabrielle Allen
   @desc 
   Standard specification of timestep
   @enddesc 
 @@*/

#include <malloc.h>

#include "cctk.h"
#include "cctk_arguments.h"
#include "cctk_parameters.h"

#include "cctk_WarnLevel.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);

}