[Commits] [svn:einsteintoolkit] NullSHRExtract/branches/tapir/src/ (Rev. 16)

[bela at caltech.edu]

User: szilagyi
Date: 2013/10/30 09:17 PM

Modified:
 /branches/tapir/src/
  NullSHRE_ExtractWT.F90

Log:
 reduce verbosity

File Changes:

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

File [modified]: NullSHRE_ExtractWT.F90
Delta lines: +4 -2
===================================================================
--- branches/tapir/src/NullSHRE_ExtractWT.F90	2013-10-22 18:27:05 UTC (rev 15)
+++ branches/tapir/src/NullSHRE_ExtractWT.F90	2013-10-31 02:17:42 UTC (rev 16)
@@ -242,8 +242,10 @@
   endif
 
 
-  write(message,*) "CCE world-tube index range is", gi_min, gi_max, null_rb(gi_min), null_rb(gi_max)
-  call CCTK_INFO(trim(message))
+  if (cctk_iteration.le.2) then 
+    write(message,*) "CCE world-tube index range is", gi_min, gi_max, null_rb(gi_min), null_rb(gi_max)
+    call CCTK_INFO(trim(message))
+  end if
     
 
   gi_max = gi_max + 4 ! fill up an extra 4 points outside the world-tube