From 707dca1ab81fa87a3a12ba509dc2261f87dd8bb3 Mon Sep 17 00:00:00 2001 From: Michele Guerini Rocco Date: Tue, 23 May 2023 17:49:04 +0200 Subject: [PATCH] src/coreprofiles.f90: add some debug output --- src/coreprofiles.f90 | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/coreprofiles.f90 b/src/coreprofiles.f90 index bd042c3..3e0b7ba 100644 --- a/src/coreprofiles.f90 +++ b/src/coreprofiles.f90 @@ -462,9 +462,12 @@ contains if (psi > tail%start .and. psi < tail%end) then ! Fall back to the midpoint of ψ₀ and the launcher ψ + call log_warning('downscaled tail to not reach the wave launcher', & + mod='coreprofiles', proc='set_profiles_spline') + write (msg, '(a, g0.3, a, g0.3, " → ", g0.3)') & + 'launcher: ψ=', psi, ' boundary: ψ=', tail%end, (tail%start + psi)/2 + call log_debug(msg, mod='coreprofiles', proc='set_profiles_spline') tail%end = (tail%start + psi)/2 - call log_warning('downscaled tail to not reach the wave launcher', & - mod='coreprofiles', proc='set_profiles_spline') end if if (psi > 0 .and. psi < tail%start) then