From 98cfd3904a9cac3a40045ac9647f4d6b3cf20fc8 Mon Sep 17 00:00:00 2001 From: Jonathan Schilling Date: Thu, 17 Oct 2024 16:35:28 +0200 Subject: [PATCH] add dbgout for evolve --- Sources/TimeStep/evolve.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Sources/TimeStep/evolve.f b/Sources/TimeStep/evolve.f index 4fc6e01..886b068 100644 --- a/Sources/TimeStep/evolve.f +++ b/Sources/TimeStep/evolve.f @@ -219,11 +219,11 @@ SUBROUTINE evolve(time_step, ier_flag, liter_flag, lscreen) ! debugging output: xc, xcdot, gc before time step; xc and xcdot also after time step dbg_evolve = open_dbg_context("evolve", num_eqsolve_retries) if (dbg_evolve) then - call add_real_5d("xc_before", 3, ntmax, ns, ntor1, mpol, & + call add_real_5d("xc_before", 3, ntmax, ns, ntor1, mpol, & & xc, order=(/ 4, 5, 3, 2, 1 /) ) call add_real_5d("xcdot_before", 3, ntmax, ns, ntor1, mpol, & & xcdot, order=(/ 4, 5, 3, 2, 1 /) ) - call add_real_5d("gc", 3, ntmax, ns, ntor1, mpol, & + call add_real_5d("gc", 3, ntmax, ns, ntor1, mpol, & & gc, order=(/ 4, 5, 3, 2, 1 /) ) end if @@ -244,7 +244,7 @@ SUBROUTINE evolve(time_step, ier_flag, liter_flag, lscreen) END IF if (dbg_evolve) then - call add_real_5d("xc_after", 3, ntmax, ns, ntor1, mpol, & + call add_real_5d("xc_after", 3, ntmax, ns, ntor1, mpol, & & xc, order=(/ 4, 5, 3, 2, 1 /) ) call add_real_5d("xcdot_after", 3, ntmax, ns, ntor1, mpol, & & xcdot, order=(/ 4, 5, 3, 2, 1 /) )