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 ar proc~residual_helmholtz->ar ar_b ar_b proc~residual_helmholtz->ar_b ar_d_b ar_d_b proc~residual_helmholtz->ar_d_b ar_d_d ar_d_d proc~residual_helmholtz->ar_d_d none~reset_vars~2 reset_vars proc~residual_helmholtz->none~reset_vars~2

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
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))
logical, private :: need_ArT2
logical, private :: need_ArTV
logical, private :: need_ArTn
logical, private :: need_ArV2
logical, private :: need_ArVn
logical, private :: need_Arn2
logical, private :: need_grad
logical, private :: need_val
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

Subroutines

subroutine reset_vars()

Arguments

None