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: