EQUATIONS: Print method name in the failed convergence messages.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
f8cdeaeffd
commit
a9c56ff1b1
@ -3686,13 +3686,13 @@ module equations
|
||||
! print information about failed convergence
|
||||
!
|
||||
if (err >= tol) then
|
||||
print *, '[SRHD, 1Dw] Convergence not reached: ', err
|
||||
print *, '[SRHD, 1D(w)] Convergence not reached: ', err
|
||||
end if
|
||||
if (w <= 0.0d+00) then
|
||||
print *, '[SRHD, 1Dw] Unphysical enthalpy: ', w
|
||||
print *, '[SRHD, 1D(w)] Unphysical enthalpy: ', w
|
||||
end if
|
||||
if (vv >= 1.0d+00) then
|
||||
print *, '[SRHD, 1Dw] Unphysical speed: ', vv
|
||||
print *, '[SRHD, 1D(w)] Unphysical speed: ', vv
|
||||
end if
|
||||
|
||||
#ifdef PROFILE
|
||||
@ -3878,13 +3878,13 @@ module equations
|
||||
! print information about failed convergence
|
||||
!
|
||||
if (err >= tol) then
|
||||
print *, '[SRHD, 2D ] Convergence not reached: ', err
|
||||
print *, '[SRHD, 2D(W,v²)] Convergence not reached: ', err
|
||||
end if
|
||||
if (w <= 0.0d+00) then
|
||||
print *, '[SRHD, 2D ] Unphysical enthalpy: ', w
|
||||
print *, '[SRHD, 2D(W,v²)] Unphysical enthalpy: ', w
|
||||
end if
|
||||
if (vv >= 1.0d+00) then
|
||||
print *, '[SRHD, 2D ] Unphysical speed: ', vv
|
||||
print *, '[SRHD, 2D(W,v²)] Unphysical speed: ', vv
|
||||
end if
|
||||
|
||||
#ifdef PROFILE
|
||||
|
Loading…
x
Reference in New Issue
Block a user