From 524759b9f853f131d2ef2e09005fc69c1ad827d5 Mon Sep 17 00:00:00 2001
From: Jonathan Schilling <jons@proximafusion.com>
Date: Mon, 21 Oct 2024 15:45:04 +0200
Subject: [PATCH] remove printout of buco

---
 Sources/General/fbal.f | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/Sources/General/fbal.f b/Sources/General/fbal.f
index cf35d25..30f7fbe 100644
--- a/Sources/General/fbal.f
+++ b/Sources/General/fbal.f
@@ -38,10 +38,6 @@ SUBROUTINE calc_fbal_par(bsubu, bsubv)
       CALL Gather1XArray(bvco)
       CALL Gather1XArray(buco)
 
-      print *, iter2,                                                          &
-     &         " ; buco(ns - 1) = ", buco(ns - 1),                             &
-     &         " ; buco(ns    ) = ", buco(ns)
-
 !     FROM AMPERE'S LAW, JcurX are angle averages of jac*JsupX, so
 !                        JcurX = (dV/ds)/twopi**2 <JsupX> where <...> is flux surface average
       !nsmin=MAX(2,t1lglob); nsmax=MIN(t1rglob,ns-1)