elements Module

Subroutines about the finite elements that are used

Uses

- data_arch
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Functions

ni4 ni4_up_1d ni4_up_2d ni_tanh_1d ni_tanh_1d_der ni_tanh_2d ni_tanh_2d_ksi ni_tanh_2d_eta ni4ksi ni4eta j4 dj4

Subroutines

calc_ni4_xy_derivatives

Functions

public function ni4(numn, ksi, eta)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn	local node number: 1->SW, 2-> SE, 3->NE, 4->NW
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	eta

Return Value real(kind=R8)

private function ni4_up_1d(numn, ksi, pe, se)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn	local node number
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	pe	parameter controlling the shape function slope
real(kind=R8),	intent(in)			::	se	+1 -> upwind, -1 -> downwind

Return Value real(kind=R8)

public function ni4_up_2d(numn, ksi, eta, pe, se)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn	local node number
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	eta
real(kind=R8),	intent(in),		dimension(2)	::	pe	parameter controling the shape function slope for each direction
real(kind=R8),	intent(in),		dimension(2)	::	se	+1 -> upwind, -1 -> downwind, for each direction

Return Value real(kind=R8)

private function ni_tanh_1d(numn, ksi, pe, se)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	pe
real(kind=R8),	intent(in)			::	se

Return Value real(kind=R8)

private function ni_tanh_1d_der(numn, ksi, pe, se)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	pe
real(kind=R8),	intent(in)			::	se

Return Value real(kind=R8)

private function ni_tanh_2d(numn, ksi, eta, pe, se)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	eta
real(kind=R8),	intent(in),		dimension(2)	::	pe
real(kind=R8),	intent(in),		dimension(2)	::	se

Return Value real(kind=R8)

private function ni_tanh_2d_ksi(numn, ksi, eta, pe, se)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	eta
real(kind=R8),	intent(in),		dimension(2)	::	pe
real(kind=R8),	intent(in),		dimension(2)	::	se

Return Value real(kind=R8)

private function ni_tanh_2d_eta(numn, ksi, eta, pe, se)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	eta
real(kind=R8),	intent(in),		dimension(2)	::	pe
real(kind=R8),	intent(in),		dimension(2)	::	se

Return Value real(kind=R8)

private function ni4ksi(numn, eta)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn
real(kind=R8),	intent(in)			::	eta

Return Value real(kind=R8)

private function ni4eta(numn, ksi)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn
real(kind=R8),	intent(in)			::	ksi

Return Value real(kind=R8)

private function j4(numn, ksi, eta, x, y)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4),	intent(in)			::	numn
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	eta
real(kind=R8),	intent(in),		dimension(4)	::	x
real(kind=R8),	intent(in),		dimension(4)	::	y

Return Value real(kind=R8)

public function dj4(ksi, eta, x, y)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	eta
real(kind=R8),	intent(in),		dimension(4)	::	x
real(kind=R8),	intent(in),		dimension(4)	::	y

Return Value real(kind=R8)

Subroutines

public subroutine calc_ni4_xy_derivatives(ni4x, ni4y, ksi, eta, x, y, dj)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R8),	intent(out),		dimension(4)	::	ni4x
real(kind=R8),	intent(out),		dimension(4)	::	ni4y
real(kind=R8),	intent(in)			::	ksi
real(kind=R8),	intent(in)			::	eta
real(kind=R8),	intent(in),		dimension(4)	::	x
real(kind=R8),	intent(in),		dimension(4)	::	y
real(kind=R8),	intent(in)			::	dj