add dbgout for printout

jons-pf · Oct 15, 2024 · 083622c · 083622c
1 parent b2caca8
commit 083622c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Sources/Input_Output/printout.f b/Sources/Input_Output/printout.f
@@ -69,7 +69,7 @@ SUBROUTINE printout(i0, delt0, w0, lscreen)
      &                                   num_eqsolve_retries)
       if (dbgout_printout) then
         ! dump gc before it gets modified by spectrum() below
-        call add_real_5d("gc", 3, ntmax, ns, ntor1, mpol, gc,                  &
+        call add_real_5d("gc", 3, ntmax, ns, ntor1, mpol, pgc,                  &
      &                   order=(/ 4, 5, 3, 2, 1 /) )
       end if ! dbgout_printout