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 where <...> is flux surface average !nsmin=MAX(2,t1lglob); nsmax=MIN(t1rglob,ns-1)