remove printout of buco

jons-pf · Oct 21, 2024 · 524759b · 524759b
1 parent 386c1c7
commit 524759b
Showing 1 changed file with 0 additions and 4 deletions.
diff --git 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)