diff options
Diffstat (limited to 'src/EHFinder_Init.F90')
-rw-r--r-- | src/EHFinder_Init.F90 | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/EHFinder_Init.F90 b/src/EHFinder_Init.F90 index d9aa13e..478839f 100644 --- a/src/EHFinder_Init.F90 +++ b/src/EHFinder_Init.F90 @@ -36,9 +36,17 @@ subroutine EHFinder_Init_F(CCTK_ARGUMENTS) ! chosen to be consistent with the run producing the numerical data. ! F.ex. if dt was 0.1 but the data was only stored every 4 iterations, the ! parameters should be chosen so that dt now is 0.4. - last_time = abs(cctk_delta_time) * last_iteration_number / & - saved_iteration_every - + last_time = abs(cctk_delta_time) * ( last_iteration_number + & + cheat_iterations ) / saved_iteration_every + + if ( cheat == 1 ) then + last_time = abs(cctk_delta_time) * ( last_iteration_number + & + cheat_iterations ) / saved_iteration_every + cctk_iteration = -cheat_iterations + else + last_time = abs(cctk_delta_time) * last_iteration_number & + / saved_iteration_every + end if cctk_time = last_time ! Allocate the logical array containing the flag determining if the |