celldefnmodule Module Reference

Data Types
type	celldefntype
	Base grid cell definition. More...

Functions/Subroutines
subroutine, public	create_defn (cellDefn)
	Create a new cell definition object. More...
integer(i4b) function, public	get_iatop (ncpl, icu)
	Get the index corresponding to top elevation of a cell in the grid. This is -1 if the cell is in the top layer and 1 otherwise. More...
logical(lgp) function	get_ispv180 (this, m)
	Return 180-degree indicator for a vertex. More...
real(dp) function	get_botflow (this)
	Return the bottom flow. More...
real(dp) function	get_topflow (this)
	Return the top flow. More...
real(dp) function	get_distflow (this)
	Return the distributed flow. More...
real(dp) function	get_faceflow (this, m)
	Return a face flow. More...

Function/Subroutine Documentation

create_defn()

subroutine, public celldefnmodule::create_defn

(

type(celldefntype), pointer

cellDefn

)

Definition at line 43 of file CellDefn.f90.

    type(CellDefnType), pointer :: cellDefn
    allocate (celldefn)
    ! Initially, allocate arrays to size for structured grid tracking method.
    ! They can be (lazily) expanded as necessary for the unstructured method.
    allocate (celldefn%ispv180(5))
    allocate (celldefn%facenbr(7))
    allocate (celldefn%faceflow(7))

Here is the caller graph for this function:

get_botflow()

real(dp) function celldefnmodule::get_botflow ( class(celldefntype), intent(inout)  this )

private

Definition at line 75 of file CellDefn.f90.

    class(CellDefnType), intent(inout) :: this
    real(DP) :: botflow
    botflow = this%faceflow(this%npolyverts + 2)

get_distflow()

real(dp) function celldefnmodule::get_distflow ( class(celldefntype), intent(inout)  this )

private

Definition at line 89 of file CellDefn.f90.

    class(CellDefnType), intent(inout) :: this
    real(DP) :: distflow
    distflow = this%distflow

get_faceflow()

real(dp) function celldefnmodule::get_faceflow ( class(celldefntype), intent(inout)  this, integer(i4b)  m  )

private

Definition at line 96 of file CellDefn.f90.

    class(CellDefnType), intent(inout) :: this
    integer(I4B) :: m
    real(DP) :: faceflow
    faceflow = this%faceflow(m)

get_iatop()

integer(i4b) function, public celldefnmodule::get_iatop	(	integer(i4b), intent(in)	ncpl,
		integer(i4b), intent(in)	icu
	)

Definition at line 55 of file CellDefn.f90.

    integer(I4B), intent(in) :: ncpl, icu
    integer(I4B) :: iatop
 
    if (icu .le. ncpl) then
      iatop = -1
    else
      iatop = 1
    end if

Here is the caller graph for this function:

get_ispv180()

logical(lgp) function celldefnmodule::get_ispv180 ( class(celldefntype), intent(inout)  this, integer(i4b)  m  )

private

Definition at line 67 of file CellDefn.f90.

    class(CellDefnType), intent(inout) :: this
    integer(I4B) :: m
    logical(LGP) :: ispv180
    ispv180 = this%ispv180(m)

get_topflow()

real(dp) function celldefnmodule::get_topflow ( class(celldefntype), intent(inout)  this )

private

Definition at line 82 of file CellDefn.f90.

    class(CellDefnType), intent(inout) :: this
    real(DP) :: topflow
    topflow = this%faceflow(this%npolyverts + 3)