fossil_cut_graph

Source: src/lib/fossil_cut_graph.f90

Dependencies

Contents

• cut_links_t
• srd_t
• frd_t
• merge_t
• merge_targets
• frd_neighbourhoods
• srd_neighbourhoods
• cut_links_2d
• build_csr
• merge_sort_links
• sort_by_key

Variables

Name	Type	Attributes	Description
MERGE_NONE	integer(kind=I4P)	parameter
MERGE_OK	integer(kind=I4P)	parameter
MERGE_CHAIN	integer(kind=I4P)	parameter
MERGE_CYCLE	integer(kind=I4P)	parameter
MERGE_ALONE	integer(kind=I4P)	parameter
SRD_REGULAR	integer(kind=I4P)	parameter
SRD_COMPLETE	integer(kind=I4P)	parameter
SRD_INCOMPLETE	integer(kind=I4P)	parameter
SRD_NO_VOLUME	integer(kind=I4P)	parameter

Derived Types

cut_links_t

Components

Name	Type	Attributes	Description
np	integer(kind=I4P)
start	integer(kind=I4P)	allocatable
piece	integer(kind=I4P)	allocatable
face	integer(kind=I4P)	allocatable
area	real(kind=R8P)	allocatable
unmatched	integer(kind=I4P)

srd_t

Components

Name	Type	Attributes	Description
np	integer(kind=I4P)
tau	real(kind=R8P)
start	integer(kind=I4P)	allocatable
member	integer(kind=I4P)	allocatable
nov	integer(kind=I4P)	allocatable
status	integer(kind=I4P)	allocatable
vhat	real(kind=R8P)	allocatable
xhat	real(kind=R8P)	allocatable
eta_nb	real(kind=R8P)	allocatable
eta_self	real(kind=R8P)	allocatable

frd_t

Components

Name	Type	Attributes	Description
np	integer(kind=I4P)
start	integer(kind=I4P)	allocatable
member	integer(kind=I4P)	allocatable
weight	real(kind=R8P)	allocatable

merge_t

Components

Name	Type	Attributes	Description
np	integer(kind=I4P)
status	integer(kind=I4P)	allocatable
target	integer(kind=I4P)	allocatable
final_target	integer(kind=I4P)	allocatable
mix_start	integer(kind=I4P)	allocatable
mix_piece	integer(kind=I4P)	allocatable
mix_weight	real(kind=R8P)	allocatable

Subroutines

merge_targets

subroutine merge_targets(links, piece_cell, piece_volume, wet_normal, x, y, mt, z, tau, mask, exclude)

Arguments

Name	Type	Intent	Attributes	Description
links	type(cut_links_t)	in
piece_cell	integer(kind=I4P)	in
piece_volume	real(kind=R8P)	in
wet_normal	real(kind=R8P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
mt	type(merge_t)	out
z	real(kind=R8P)	in	optional
tau	real(kind=R8P)	in	optional
mask	logical	in	optional
exclude	logical	in	optional

Call graph

frd_neighbourhoods

subroutine frd_neighbourhoods(links, piece_cell, piece_volume, x, y, frd, z)

Arguments

Name	Type	Intent	Attributes	Description
links	type(cut_links_t)	in
piece_cell	integer(kind=I4P)	in
piece_volume	real(kind=R8P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
frd	type(frd_t)	out
z	real(kind=R8P)	in	optional

srd_neighbourhoods

subroutine srd_neighbourhoods(links, piece_cell, piece_volume, piece_centroid, wet_normal, x, y, srd, z, tau)

Arguments

Name	Type	Intent	Attributes	Description
links	type(cut_links_t)	in
piece_cell	integer(kind=I4P)	in
piece_volume	real(kind=R8P)	in
piece_centroid	real(kind=R8P)	in
wet_normal	real(kind=R8P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
srd	type(srd_t)	out
z	real(kind=R8P)	in	optional
tau	real(kind=R8P)	in	optional

Call graph

cut_links_2d

subroutine cut_links_2d(cut, links)

Arguments

Name	Type	Intent	Attributes	Description
cut	type(cut_cells_2d_t)	in
links	type(cut_links_t)	out

Call graph

build_csr

subroutine build_csr(nl, lp, lq, lf, la, links)

Arguments

Name	Type	Intent	Attributes	Description
nl	integer(kind=I4P)	in
lp	integer(kind=I4P)	in
lq	integer(kind=I4P)	in
lf	integer(kind=I4P)	in
la	real(kind=R8P)	in
links	type(cut_links_t)	inout

Call graph

merge_sort_links

subroutine merge_sort_links(k1, k2, k3, ord)

Arguments

Name	Type	Intent	Attributes	Description
k1	integer(kind=I4P)	in
k2	integer(kind=I4P)	in
k3	integer(kind=I4P)	in
ord	integer(kind=I4P)	inout

Call graph

sort_by_key

subroutine sort_by_key(ik, rk, ord)

Arguments

Name	Type	Intent	Attributes	Description
ik	integer(kind=I4P)	in
rk	real(kind=R8P)	in
ord	integer(kind=I4P)	out

Call graph