upstreamschememodule Module Reference

Data Types
interface	upstreamschemetype

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

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, real(dp), dimension(:), intent(in)  phi  )

private

Definition at line 39 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
    real(DP), intent(in), dimension(:) :: phi
    ! -- 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 27 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: