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