diff options
Diffstat (limited to 'src/Courant.c')
-rw-r--r-- | src/Courant.c | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/src/Courant.c b/src/Courant.c index 7bac44c..d0c36ef 100644 --- a/src/Courant.c +++ b/src/Courant.c @@ -26,9 +26,6 @@ void Time_Courant(CCTK_CARGUMENTS) int min_handle,ierr; - /* Get the handle for the MINIMUM operation */ - /*$ierr = CCTK_ReductionArrayHandle("minimum");$*/ - /* Calculate the minimum grid spacing */ if (cctk_dim>=1) { @@ -52,15 +49,6 @@ void Time_Courant(CCTK_CARGUMENTS) CCTK_WARN(0,"Time Step not defined for greater than 4 dimensions"); } - /* do the global minimum on local min_spacing to tmp and reassign that - to min_spacing */ - - /*$printf("Courant1: %d \n",min_spacing); - ierr = CCTK_ReduceLocalScalar(GH,-1,min_handle,min_spacing, tmp, CCTK_VAR_REAL); - printf("Courant2: %d \n",min_spacing,tmp); - min_spacing = tmp; - printf("Courant3: %d \n",min_spacing,tmp);$*/ - /* Calculate the courant timestep */ courant_speed = *wave_speed; *courant_dt = courant_fac/courant_speed/sqrt((CCTK_REAL )cctk_dim); @@ -85,7 +73,7 @@ void Time_Courant(CCTK_CARGUMENTS) } else { - cctkGH->cctk_delta_time = dtfac*min_spacing/courant_wave_speed; + cctkGH->cctk_delta_time = dtfac*min_spacing; } } |