12 integer(I4B),
public :: icell
13 logical(LGP),
public :: can_be_rect
14 logical(LGP),
public :: can_be_quad
15 integer(I4B),
public :: npolyverts
16 real(dp),
public :: porosity
17 real(dp),
public :: retfactor
18 integer(I4B),
public :: izone
19 integer(I4B),
public :: iweaksink
20 integer(I4B),
public :: inoexitface
21 integer(I4B),
public :: iatop
22 real(dp),
public :: top, bot
23 real(dp),
public :: sat
24 real(dp),
allocatable,
public :: polyvert(:, :)
25 logical(LGP),
allocatable,
public :: ispv180(:)
26 integer(I4B),
allocatable,
public :: facenbr(:)
27 real(dp),
allocatable,
public :: faceflow(:)
28 real(dp),
public :: distflow
46 allocate (celldefn%ispv180(5))
47 allocate (celldefn%facenbr(7))
48 allocate (celldefn%faceflow(7))
55 npolyverts = this%npolyverts
63 ispv180 = this%ispv180(m)
69 double precision :: botflow
70 botflow = this%faceflow(this%npolyverts + 2)
76 double precision :: topflow
77 topflow = this%faceflow(this%npolyverts + 3)
83 double precision :: distflow
84 distflow = this%distflow
91 double precision :: faceflow
92 faceflow = this%faceflow(m)
logical function get_ispv180(this, m)
Return 180-degree indicator for a vertex.
subroutine, public create_defn(cellDefn)
Create a new cell definition object.
double precision function get_topflow(this)
Return the top flow.
double precision function get_distflow(this)
Return the distributed flow.
double precision function get_botflow(this)
Return the bottom flow.
integer function get_npolyverts(this)
Return the number of polygon vertices.
double precision function get_faceflow(this, m)
Return a face flow.
This module defines variable data types.
Base grid cell definition.