linearisothermsmodule Module Reference

Data Types
interface	linearisothermtype
	Linear (Kd) isotherm implementation of IsothermType. More...

Functions/Subroutines
type(linearisothermtype) function	constructor (Kd)
	Constructor for Linear isotherm. More...
real(dp) function	value (this, c, n)
	Evaluate the isotherm at a given node. More...
real(dp) function	derivative (this, c, n)
	Evaluate derivative of the isotherm at a given node. More...

Function/Subroutine Documentation

constructor()

type(linearisothermtype) function linearisothermsmodule::constructor ( real(dp), dimension(:), intent(in), pointer  Kd )

private

Parameters

[in]

kd

distribution coefficient

Definition at line 28 of file LinearIsotherm.f90.

    ! -- return
    type(LinearIsothermType) :: isotherm
    ! -- dummy
    real(DP), pointer, dimension(:), intent(in) :: Kd !< distribution coefficient
    ! -- local
 
    isotherm%Kd => kd
 

Here is the caller graph for this function:

derivative()

real(dp) function linearisothermsmodule::derivative ( class(linearisothermtype), intent(in)  this, real(dp), dimension(:), intent(in)  c, integer(i4b), intent(in)  n  )

private

Returns

derivative d(value)/dc evaluated at c

Parameters

[in]	c	concentration array
[in]	n	node index

Definition at line 54 of file LinearIsotherm.f90.

    ! -- return
    real(DP) :: derv !< derivative d(value)/dc evaluated at c
    ! -- dummy
    class(LinearIsothermType), intent(in) :: this
    real(DP), dimension(:), intent(in) :: c !< concentration array
    integer(I4B), intent(in) :: n !< node index
    ! -- local
 
    derv = this%Kd(n)

value()

real(dp) function linearisothermsmodule::value ( class(linearisothermtype), intent(in)  this, real(dp), dimension(:), intent(in)  c, integer(i4b), intent(in)  n  )

private

Returns

isotherm value

Parameters

[in]	c	concentration array
[in]	n	node index

Definition at line 41 of file LinearIsotherm.f90.

    ! -- return
    real(DP) :: val !< isotherm value
    ! -- dummy
    class(LinearIsothermType), intent(in) :: this
    real(DP), dimension(:), intent(in) :: c !< concentration array
    integer(I4B), intent(in) :: n !< node index
 
    val = this%Kd(n) * c(n)