User: szilagyi Date: 2014/01/07 04:38 PM

Modified: /branches/tapir/ schedule.ccl /branches/tapir/src/ NullGrid_InitCoord.F90

Log: work on adaptive time-stepping algorithm

File Changes:

Directory: /branches/tapir/src/ ===============================

File [modified]: NullGrid_InitCoord.F90 Delta lines: +8 -5 =================================================================== --- branches/tapir/src/NullGrid_InitCoord.F90 2014-01-03 07:23:01 UTC (rev 16) +++ branches/tapir/src/NullGrid_InitCoord.F90 2014-01-07 22:38:56 UTC (rev 17) @@ -32,7 +32,6 @@ return end function NullGrid_RegisterCoords

- subroutine NullGrid_InitTime(CCTK_ARGUMENTS)

use cctk @@ -40,9 +39,9 @@

DECLARE_CCTK_ARGUMENTS

- null_time = cctk_time - null_time_p = cctk_time - cctk_delta_time - null_time_p_p = cctk_time - 2.0*cctk_delta_time + null_time = 0 + null_time_p = 0 + null_time_p_p = 0

end subroutine NullGrid_InitTime

@@ -54,7 +53,11 @@

DECLARE_CCTK_ARGUMENTS

- null_time = cctk_time + null_time = cctk_time + if(abs(null_time_p-null_time_p_p)<1.e-10*cctk_delta_time) then + null_time_p = cctk_time - cctk_delta_time + null_time_p_p = cctk_time - 2.0*cctk_delta_time + end if

end subroutine NullGrid_CopyTime

Directory: /branches/tapir/ ===========================

File [modified]: schedule.ccl Delta lines: +9 -1 =================================================================== --- branches/tapir/schedule.ccl 2014-01-03 07:23:01 UTC (rev 16) +++ branches/tapir/schedule.ccl 2014-01-07 22:38:56 UTC (rev 17) @@ -28,12 +28,20 @@ OPTIONS: global } "setup variables"

-schedule NullGrid_InitTime at CCTK_INITIAL +schedule NullGrid_InitTime at CCTK_BASEGRID { LANG: Fortran OPTIONS: global } "initialize null time variable"

+schedule NullGrid_CopyTime at CCTK_INITIAL \ + BEFORE NullEvol_BoundaryInit \ + BEFORE NullEvol_Initial +{ + LANG: Fortran + OPTIONS: global +} "copy value of time to local var" + schedule NullGrid_CopyTime at CCTK_PRESTEP { LANG: Fortran