fossil_cut_cells_2d

Source: src/lib/fossil_cut_cells_2d.f90

Dependencies

Contents

• cut_cells_2d_t
• xing_t
• piece_t
• ctx_t
• compute_cut_cells_2d
• one_cell
• quiet_cell
• add_bd
• boundaries_out
• quadrature_out
• add_iv
• add_piece
• green
• node_flags
• walk_all
• index_crossings
• index_pieces
• quiet
• vedge
• hedge
• ray_hits
• corner_side
• col_of

Derived Types

cut_cells_2d_t

Components

Name	Type	Attributes	Description
nx	integer(kind=I4P)
ny	integer(kind=I4P)
alpha	real(kind=R8P)	allocatable
aperture	real(kind=R8P)	allocatable
centroid	real(kind=R8P)	allocatable
wet_length	real(kind=R8P)	allocatable
wet_centroid	real(kind=R8P)	allocatable
wet_normal	real(kind=R8P)	allocatable
pieces	integer(kind=I4P)	allocatable
first_piece	integer(kind=I4P)	allocatable
closed	logical	allocatable
np	integer(kind=I4P)
piece_cell	integer(kind=I4P)	allocatable
piece_area	real(kind=R8P)	allocatable
piece_centroid	real(kind=R8P)	allocatable
piece_wet_length	real(kind=R8P)	allocatable
piece_wet_normal	real(kind=R8P)	allocatable
piece_aperture	real(kind=R8P)	allocatable
piece_iv_start	integer(kind=I4P)	allocatable
piece_iv_edge	integer(kind=I4P)	allocatable
piece_iv_lo	real(kind=R8P)	allocatable
piece_iv_hi	real(kind=R8P)	allocatable
node_in	logical	allocatable
moments_order	integer(kind=I4P)
piece_moments	real(kind=R8P)	allocatable
piece_wall_moments	real(kind=R8P)	allocatable
piece_seg_start	integer(kind=I4P)	allocatable
piece_seg	real(kind=R8P)	allocatable
piece_seg_wall	logical	allocatable
quad_start	integer(kind=I4P)	allocatable
quad_point	real(kind=R8P)	allocatable
quad_weight	real(kind=R8P)	allocatable
wall_quad_start	integer(kind=I4P)	allocatable
wall_quad_point	real(kind=R8P)	allocatable
wall_quad_weight	real(kind=R8P)	allocatable

xing_t

Components

Name	Type	Attributes	Description
edge	integer(kind=I4P)
pos	real(kind=R8P)
seg	integer(kind=I4P)
p	real(kind=R8P)

piece_t

Components

Name	Type	Attributes	Description
cell	integer(kind=I4P)
seg	integer(kind=I4P)
a	real(kind=R8P)
b	real(kind=R8P)
ta	integer(kind=I4P)
tb	integer(kind=I4P)

ctx_t

Components

Name	Type	Attributes	Description
nx	integer(kind=I4P)
ny	integer(kind=I4P)
x	real(kind=R8P)	allocatable
y	real(kind=R8P)	allocatable
node_in	logical	allocatable
xs	type(xing_t)	allocatable
ps	type(piece_t)	allocatable
xstart	integer(kind=I4P)	allocatable
xord	integer(kind=I4P)	allocatable
pstart	integer(kind=I4P)	allocatable
pord	integer(kind=I4P)	allocatable
npb	integer(kind=I4P)
pa	real(kind=R8P)	allocatable
pcx	real(kind=R8P)	allocatable
pcy	real(kind=R8P)	allocatable
pwl	real(kind=R8P)	allocatable
pwx	real(kind=R8P)	allocatable
pwy	real(kind=R8P)	allocatable
pci	integer(kind=I4P)	allocatable
pcj	integer(kind=I4P)	allocatable
pap	real(kind=R8P)	allocatable
niv	integer(kind=I4P)
with_iv	logical
nm	integer(kind=I4P)
me	integer(kind=I4P)	allocatable
pmom	real(kind=R8P)	allocatable
pwm	real(kind=R8P)	allocatable
with_bnd	logical
nbd	integer(kind=I4P)
bd	real(kind=R8P)	allocatable
bdw	logical	allocatable
bdp	integer(kind=I4P)	allocatable
ivp	integer(kind=I4P)	allocatable
ive	integer(kind=I4P)	allocatable
ivl	real(kind=R8P)	allocatable
ivh	real(kind=R8P)	allocatable

Subroutines

compute_cut_cells_2d

subroutine compute_cut_cells_2d(u, v, next, x, y, cc, status, with_iv, order, with_bnd, with_quad)

Arguments

Name	Type	Intent	Attributes	Description
u	real(kind=R8P)	in
v	real(kind=R8P)	in
next	integer(kind=I4P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
cc	type(cut_cells_2d_t)	out
status	integer(kind=I4P)	out
with_iv	logical	in
order	integer(kind=I4P)	in
with_bnd	logical	in
with_quad	logical	in

Call graph

one_cell

subroutine one_cell(cid, cx, cc)

Arguments

Name	Type	Intent	Attributes	Description
cid	integer(kind=I4P)	in
cx	type(ctx_t)	inout
cc	type(cut_cells_2d_t)	inout

Call graph

quiet_cell

subroutine quiet_cell(cid, cx, cc)

Arguments

Name	Type	Intent	Attributes	Description
cid	integer(kind=I4P)	in
cx	type(ctx_t)	inout
cc	type(cut_cells_2d_t)	inout

Call graph

add_bd

subroutine add_bd(cx, ip, a, b, wall)

Arguments

Name	Type	Intent	Attributes	Description
cx	type(ctx_t)	inout
ip	integer(kind=I4P)	in
a	real(kind=R8P)	in
b	real(kind=R8P)	in
wall	logical	in

Call graph

boundaries_out

subroutine boundaries_out(cx, cc)

Arguments

Name	Type	Intent	Attributes	Description
cx	type(ctx_t)	in
cc	type(cut_cells_2d_t)	inout

Call graph

quadrature_out

subroutine quadrature_out(cc, x, y)

Arguments

Name	Type	Intent	Attributes	Description
cc	type(cut_cells_2d_t)	inout
x	real(kind=R8P)	in
y	real(kind=R8P)	in

Call graph

add_iv

subroutine add_iv(cx, ip, ed, lo, hi)

Arguments

Name	Type	Intent	Attributes	Description
cx	type(ctx_t)	inout
ip	integer(kind=I4P)	in
ed	integer(kind=I4P)	in
lo	real(kind=R8P)	in
hi	real(kind=R8P)	in

Call graph

add_piece

subroutine add_piece(cx, ii, jj, ar, mx, my, wl, wnn)

Arguments

Name	Type	Intent	Attributes	Description
cx	type(ctx_t)	inout
ii	integer(kind=I4P)	in
jj	integer(kind=I4P)	in
ar	real(kind=R8P)	in
mx	real(kind=R8P)	in
my	real(kind=R8P)	in
wl	real(kind=R8P)	in
wnn	real(kind=R8P)	in

Call graph

green

Attributes: pure

subroutine green(a, b, g)

Arguments

Name	Type	Intent	Attributes	Description
a	real(kind=R8P)	in
b	real(kind=R8P)	in
g	real(kind=R8P)	out

Call graph

node_flags

subroutine node_flags(u, v, next, x, y, node_in)

Arguments

Name	Type	Intent	Attributes	Description
u	real(kind=R8P)	in
v	real(kind=R8P)	in
next	integer(kind=I4P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
node_in	logical	out	allocatable

Call graph

walk_all

subroutine walk_all(u, v, next, x, y, xs, nxs, ps, nps)

Arguments

Name	Type	Intent	Attributes	Description
u	real(kind=R8P)	in
v	real(kind=R8P)	in
next	integer(kind=I4P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
xs	type(xing_t)	out	allocatable
nxs	integer(kind=I4P)	out
ps	type(piece_t)	out	allocatable
nps	integer(kind=I4P)	out

Call graph

index_crossings

subroutine index_crossings(xs, n, ne, start, ord)

Arguments

Name	Type	Intent	Attributes	Description
xs	type(xing_t)	in
n	integer(kind=I4P)	in
ne	integer(kind=I4P)	in
start	integer(kind=I4P)	out	allocatable
ord	integer(kind=I4P)	out	allocatable

Call graph

index_pieces

subroutine index_pieces(ps, n, ncell, start, ord)

Arguments

Name	Type	Intent	Attributes	Description
ps	type(piece_t)	in
n	integer(kind=I4P)	in
ncell	integer(kind=I4P)	in
start	integer(kind=I4P)	out	allocatable
ord	integer(kind=I4P)	out	allocatable

Call graph

Functions

quiet

Returns: logical

function quiet(cx, cid)

Arguments

Name	Type	Intent	Attributes	Description
cx	type(ctx_t)	in
cid	integer(kind=I4P)	in

Call graph

vedge

Returns: integer(kind=i4p)

function vedge(cx, ll, kk)

Arguments

Name	Type	Intent	Attributes	Description
cx	type(ctx_t)	in
ll	integer(kind=I4P)	in
kk	integer(kind=I4P)	in

Call graph

hedge

Returns: integer(kind=i4p)

function hedge(cx, kk, ll)

Arguments

Name	Type	Intent	Attributes	Description
cx	type(ctx_t)	in
kk	integer(kind=I4P)	in
ll	integer(kind=I4P)	in

Call graph

ray_hits

Attributes: pure

Returns: logical

function ray_hits(pt, a, b)

Arguments

Name	Type	Intent	Attributes	Description
pt	real(kind=R8P)	in
a	real(kind=R8P)	in
b	real(kind=R8P)	in

Call graph

corner_side

Attributes: pure

Returns: integer(kind=i4p)

function corner_side(pu, pv, qu, qv, cu, cv)

Arguments

Name	Type	Intent	Attributes	Description
pu	real(kind=R8P)	in
pv	real(kind=R8P)	in
qu	real(kind=R8P)	in
qv	real(kind=R8P)	in
cu	real(kind=R8P)	in
cv	real(kind=R8P)	in

Call graph

col_of

Attributes: pure

Returns: integer(kind=i4p)

function col_of(w, e)

Arguments

Name	Type	Intent	Attributes	Description
w	real(kind=R8P)	in
e	real(kind=R8P)	in

Call graph