centraldifferenceschememodule Module Reference

Data Types
interface	centraldifferenceschemetype

Functions/Subroutines
type(centraldifferenceschemetype) function	constructor (dis, fmi)
type(coefficientstype) function	compute (this, n, m, iposnm, phi)

Function/Subroutine Documentation

compute()

type(coefficientstype) function centraldifferenceschememodule::compute ( class(centraldifferenceschemetype), target  this, integer(i4b), intent(in)  n, integer(i4b), intent(in)  m, integer(i4b), intent(in)  iposnm, real(dp), dimension(:), intent(in)  phi  )

private

Definition at line 39 of file CentralDifferenceScheme.f90.

    !-- return
    type(CoefficientsType) :: phi_face
    ! -- dummy
    class(CentralDifferenceSchemeType), target :: this
    integer(I4B), intent(in) :: n
    integer(I4B), intent(in) :: m
    integer(I4B), intent(in) :: iposnm
    real(DP), intent(in), dimension(:) :: phi
    ! -- local
    real(DP) :: lnm, lmn, omega
 
    ! -- calculate weight based on distances between nodes and the shared
    !    face of the connection
    if (this%dis%con%ihc(this%dis%con%jas(iposnm)) == 0) then
      ! -- vertical connection; assume cell is fully saturated
      lnm = dhalf * (this%dis%top(n) - this%dis%bot(n))
      lmn = dhalf * (this%dis%top(m) - this%dis%bot(m))
    else
      ! -- horizontal connection
      lnm = this%dis%con%cl1(this%dis%con%jas(iposnm))
      lmn = this%dis%con%cl2(this%dis%con%jas(iposnm))
    end if
 
    omega = lmn / (lnm + lmn)
 
    phi_face%c_n = omega
    phi_face%c_m = done - omega
 

constructor()

type(centraldifferenceschemetype) function centraldifferenceschememodule::constructor ( class(disbasetype), intent(in), pointer  dis, type(tspfmitype), intent(in), pointer  fmi  )

private

Definition at line 27 of file CentralDifferenceScheme.f90.

    ! -- return
    type(CentralDifferenceSchemeType) :: interpolation_scheme
    ! --dummy
    class(DisBaseType), pointer, intent(in) :: dis
    type(TspFmiType), pointer, intent(in) :: fmi
 
    interpolation_scheme%dis => dis
    interpolation_scheme%fmi => fmi
 

Here is the caller graph for this function: