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

EQUATIONS: Use energy equation to find the lower bracket for W.

Browse Source 
The equation for total energy gives another condition for the positivity
of pressure which is a cubic function.  This condition is somewhat
stronger than the condition coming from the pressure equation and
costs less computationally.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2015-05-02 12:43:28 -03:00
parent 61ca7eae12
commit 366dbdbd38
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/equations.F90
View File

@ -5038,10 +5038,10 @@ module equations
! Subroutine finds the initial brackets and initial guess from ! Subroutine finds the initial brackets and initial guess from
! the positivity condition ! the positivity condition
! !
! W⁴ + 2 |B|² W³ - (|m|² + D² - |B|⁴) W² ! W³ + (5/2 |B|² - E) W² + 2 (|B|² - E) |B|² W
! - (2 S² + D² |B|²) W - (S² + D² |B|²) |B|² > 0 ! + 1/2 [(|B|⁴ - 2 |B|² E + |m|²) |B|² - S²] > 0
! !
! using analytical, of it fails, the Newton-Raphson iterative method. ! using analytical, or if it fails, the Newton-Raphson iterative method.
! !
! Arguments: ! Arguments:
! !
@ -5059,7 +5059,7 @@ module equations
! include external procedures ! include external procedures
! !
use algebra , only : quartic use algebra , only : cubic_normalized
! local variables are not implicit by default ! local variables are not implicit by default
! !
@ -5075,14 +5075,13 @@ module equations
! !
logical :: keep logical :: keep
integer :: it, nr integer :: it, nr
real(kind=8) :: dd, ss real(kind=8) :: dd, ss, ec
real(kind=8) :: f , df real(kind=8) :: f , df
real(kind=8) :: dw, err real(kind=8) :: dw, err
! local vectors ! local vectors
! !
real(kind=8), dimension(5) :: a real(kind=8), dimension(3) :: a, x
real(kind=8), dimension(4) :: x
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
@ -5096,22 +5095,23 @@ module equations
! !
dd = dn * dn dd = dn * dn
ss = mb * mb ss = mb * mb
ec = en + pmin
! set the initial upper bracket ! set the initial upper bracket
! !
wu = en + pmin wu = en + pmin
! calculate the quartic equation coefficients for the positivity condition ! calculate the cubic equation coefficients for the positivity condition
! coming from the energy equation; the condition, in fact, find the minimum
! enthalphy for which the pressure is equal to pmin
! !
a(5) = 1.0d+00 a(3) = 2.5d+00 * bb - ec
a(4) = 2.0d+00 * bb a(2) = 2.0d+00 * (bb - ec) * bb
a(3) = bb * bb - dd - mm a(1) = 0.5d+00 * (((bb - 2.0d+00 * ec) * bb + mm) * bb - ss)
a(2) = - 2.0d+00 * (ss + dd * bb)
a(1) = - (ss + dd * bb) * bb
! solve the quartic equation ! solve the cubic equation
! !
nr = quartic(a(1:5), x(1:4)) nr = cubic_normalized(a(1:3), x(1:3))
! if solution was found, use the maximum root as the lower bracket ! if solution was found, use the maximum root as the lower bracket
! !