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