debug ctor

jons-pf · Oct 18, 2024 · 35a0545 · 35a0545
1 parent ba770d6
commit 35a0545
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Sources/General/fbal.f b/Sources/General/fbal.f
@@ -38,8 +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)
+      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