upstreamschememodule Module Reference

Data Types
interface	upstreamschemetype

Functions/Subroutines
type(upstreamschemetype) function	constructor (dis, fmi)
subroutine	set_field (this, phi)
	Set the scalar field for which interpolation will be computed. More...
type(coefficientstype) function	compute (this, n, m, iposnm)

Function/Subroutine Documentation

compute()

type(coefficientstype) function upstreamschememodule::compute ( class(upstreamschemetype), target  this, integer(i4b), intent(in)  n, integer(i4b), intent(in)  m, integer(i4b), intent(in)  iposnm  )

private

Definition at line 54 of file UpstreamScheme.f90.

    !-- return
    type(CoefficientsType) :: phi_face
    ! -- dummy
    class(UpstreamSchemeType), target :: this
    integer(I4B), intent(in) :: n
    integer(I4B), intent(in) :: m
    integer(I4B), intent(in) :: iposnm
    ! -- local
    real(DP) :: qnm
 
    ! -- Compute the coefficients for the upwind scheme
    qnm = this%fmi%gwfflowja(iposnm)
 
    if (qnm < dzero) then
      phi_face%c_n = 1.0_dp
    else
      phi_face%c_m = 1.0_dp
    end if
 

constructor()

type(upstreamschemetype) function upstreamschememodule::constructor ( class(disbasetype), intent(in), pointer  dis, type(tspfmitype), intent(in), pointer  fmi  )

private

Definition at line 29 of file UpstreamScheme.f90.

    ! -- return
    type(UpstreamSchemeType) :: 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:

set_field()

subroutine upstreamschememodule::set_field ( class(upstreamschemetype), target  this, real(dp), dimension(:), intent(in), pointer  phi  )

private

This method establishes a pointer to the scalar field data for subsequent upstream interpolation computations.

Definition at line 46 of file UpstreamScheme.f90.

    ! -- dummy
    class(UpstreamSchemeType), target :: this
    real(DP), intent(in), dimension(:), pointer :: phi
 
    this%phi => phi