User: szilagyi Date: 2013/11/18 04:29 PM

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

Log: add mechanism of saving the last few values of cctk_time

File Changes:

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

File [modified]: NullGrid_InitCoord.F90 Delta lines: +24 -0 =================================================================== --- branches/tapir/src/NullGrid_InitCoord.F90 2013-10-22 18:26:54 UTC (rev 12) +++ branches/tapir/src/NullGrid_InitCoord.F90 2013-11-18 22:29:43 UTC (rev 13) @@ -33,7 +33,31 @@ end function NullGrid_RegisterCoords

+subroutine NullGrid_InitTime(CCTK_ARGUMENTS)

+ use cctk + implicit none + + 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 + +end subroutine NullGrid_InitTime + + +subroutine NullGrid_CopyTime(CCTK_ARGUMENTS) + + use cctk + implicit none + + DECLARE_CCTK_ARGUMENTS + + null_time = cctk_time + +end subroutine NullGrid_CopyTime + subroutine NullGrid_Coord(CCTK_ARGUMENTS)

use cctk

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

File [modified]: interface.ccl Delta lines: +5 -0 =================================================================== --- branches/tapir/interface.ccl 2013-10-22 18:26:54 UTC (rev 12) +++ branches/tapir/interface.ccl 2013-11-18 22:29:43 UTC (rev 13) @@ -23,6 +23,11 @@ null_dx, qsize } "scalars"

+CCTK_REAL NullTime TYPE=SCALAR TIMELEVELS=3 +{ + null_time +} "histor of last 3 time-levels" + ################################################################## # INTEGER CONSTANTS DESCRIBING THE GRID ##################################################################

File [modified]: schedule.ccl Delta lines: +12 -1 =================================================================== --- branches/tapir/schedule.ccl 2013-10-22 18:26:54 UTC (rev 12) +++ branches/tapir/schedule.ccl 2013-11-18 22:29:43 UTC (rev 13) @@ -2,7 +2,7 @@ # $Header$

storage: RadCrd NullSclr StCrd StCmCrd NullGrParArrI NullGrParArrR -storage: EG_mask, guard_mask, EQ_mask, EV_mask +storage: EG_mask, guard_mask, EQ_mask, EV_mask, NullTime[3]

schedule NullGrid_RegisterCoords at STARTUP { @@ -28,3 +28,14 @@ OPTIONS: global } "setup variables"

+schedule NullGrid_InitTime at CCTK_INITIAL +{ + LANG: Fortran + OPTIONS: global +} "initialize null time variable" + +schedule NullGrid_CopyTime at CCTK_PRESTEP +{ + LANG: Fortran + OPTIONS: global +} "copy value of time to local var"