residual_helmholtz Subroutine

private subroutine residual_helmholtz(self, n, v, t, Ar, ArV, ArT, ArTV, ArV2, ArT2, Arn, ArVn, ArTn, Arn2)

Residual Helmholtz model generic interface

Type Bound

ArModelTapenade

Arguments

Type IntentOptional Attributes Name
class(ArModelTapenade), intent(in) :: self
real(kind=pr), intent(in) :: n(:)
real(kind=pr), intent(in) :: v
real(kind=pr), intent(in) :: t
real(kind=pr), intent(out), optional :: Ar
real(kind=pr), intent(out), optional :: ArV
real(kind=pr), intent(out), optional :: ArT
real(kind=pr), intent(out), optional :: ArTV
real(kind=pr), intent(out), optional :: ArV2
real(kind=pr), intent(out), optional :: ArT2
real(kind=pr), intent(out), optional, dimension(size(n)) :: Arn
real(kind=pr), intent(out), optional, dimension(size(n)) :: ArVn
real(kind=pr), intent(out), optional, dimension(size(n)) :: ArTn
real(kind=pr), intent(out), optional :: Arn2(size(n),size(n))

Calls

proc~~residual_helmholtz~~CallsGraph proc~residual_helmholtz ArModelTapenade%residual_helmholtz ar_b ar_b proc~residual_helmholtz->ar_b ar_d_b ar_d_b proc~residual_helmholtz->ar_d_b none~get_arnx get_ArnX proc~residual_helmholtz->none~get_arnx none~get_dardx2 get_dArdX2 proc~residual_helmholtz->none~get_dardx2 none~reset_vars reset_vars proc~residual_helmholtz->none~reset_vars none~get_arnx->ar_d_b none~get_arnx->none~reset_vars none~get_dardx2->none~reset_vars ar_d_d ar_d_d none~get_dardx2->ar_d_d

Variables

Type Visibility Attributes Name Initial
real(kind=pr), private :: arval
real(kind=pr), private :: arvalb
real(kind=pr), private :: arvald
real(kind=pr), private :: arvald0
real(kind=pr), private :: arvaldb
real(kind=pr), private :: arvaldd
real(kind=pr), private :: df(size(n)+2)
real(kind=pr), private :: df2(size(n)+2,size(n)+2)
integer, private :: i
real(kind=pr), private :: nb(size(n))
integer, private :: nc
real(kind=pr), private :: nd(size(n))
real(kind=pr), private :: ndb(size(n))
real(kind=pr), private :: tb
real(kind=pr), private :: td
real(kind=pr), private :: td0
real(kind=pr), private :: tdb
real(kind=pr), private :: vb
real(kind=pr), private :: vd
real(kind=pr), private :: vd0
real(kind=pr), private :: vdb

Functions

function get_ArnX(var)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: var

Return Value real(kind=pr), (size(n))

function get_dArdX2(var)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: var

Return Value real(kind=pr)


Subroutines

subroutine reset_vars()

Arguments

None