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