[Commits] [svn:einsteintoolkit] NullGrid/branches/tapir/ (Rev. 13)

[bela at caltech.edu]

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"