gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EQUATIONS: Return correct info flag in nr_initial_brackets_srmhd_adi().

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2018-01-17 11:41:02 -02:00
parent 1a27369635
commit 989495ef97
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/equations.F90
View File

@ -5506,6 +5506,10 @@ module equations
!
wc = wl - fl * (wu - wl) / (fu - fl)
! we have good brackets and guess, so good to go
!
info = .true.
else ! the upper brack not found
call print_warning(loc, "Could not find the upper bracket!")
write(*,"(a,5(1x,1e24.16e3))") " D, |m|², m.B, |B|², E = " &