[Commits] [svn:einsteintoolkit] NullNews/trunk/ (Rev. 11)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2012/08/01 12:45 PM

Modified:
 /trunk/
  interface.ccl
 /trunk/src/
  NullNews_SphHarmDecomp.F90

Log:
 NullNews: respect Cactus' IO::truncate parameter

File Changes:

Directory: /trunk/src/
======================

File [modified]: NullNews_SphHarmDecomp.F90
Delta lines: +5 -5
===================================================================
--- trunk/src/NullNews_SphHarmDecomp.F90	2012-07-31 20:05:24 UTC (rev 10)
+++ trunk/src/NullNews_SphHarmDecomp.F90	2012-08-01 17:45:45 UTC (rev 11)
@@ -40,9 +40,11 @@
   DECLARE_CCTK_ARGUMENTS
   DECLARE_CCTK_PARAMETERS
 
-  logical, save :: truncate = .TRUE.
-  !truncate = cctk_iteration.eq.0
+  logical, save :: first_time = .TRUE.
+  logical :: truncate
 
+  truncate = (IO_TruncateOutputFiles(cctkGH) .ne. 0) .and. first_time
+
 !  write (*,*) "computing ylm coefs: time=", cctk_time, ", J=", maxval(abs(Jn))
 ! fill the waveforms with Ylm at Scri before decomposition
   if (Ylm_at_Scri == 1) then
@@ -156,9 +158,7 @@
   endif
 
 
-  if (truncate) then 
-     truncate = .FALSE.
-  endif
+  first_time = .FALSE.
 
 end subroutine NullNews_WriteSphHarm
 

Directory: /trunk/
==================

File [modified]: interface.ccl
Delta lines: +5 -0
===================================================================
--- trunk/interface.ccl	2012-07-31 20:05:24 UTC (rev 10)
+++ trunk/interface.ccl	2012-08-01 17:45:45 UTC (rev 11)
@@ -4,6 +4,11 @@
 implements: NullNews
 inherits: NullGrid NullVars NullInterp
 
+CCTK_INT FUNCTION IO_TruncateOutputFiles \
+  (CCTK_POINTER_TO_CONST IN GH)
+
+USES FUNCTION IO_TruncateOutputFiles
+
 public:
 # private: