debug ctor

jons-pf · Oct 18, 2024 · ba770d6 · ba770d6
1 parent 7553858
commit ba770d6
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/Sources/General/fbal.f b/Sources/General/fbal.f
@@ -38,6 +38,9 @@ SUBROUTINE calc_fbal_par(bsubu, bsubv)
       CALL Gather1XArray(bvco)
       CALL Gather1XArray(buco)
 
+      print *, "buco(ns - 1) = ", buco(ns - 1)
+      print *, "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)