spectral Module

Uses

- params
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.

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.

Variables

Type	Visibility	Attributes		Name		Initial
real,	public,	dimension(mx,nx)	::	el2
real,	private,	dimension(mx,nx)	::	elm2
real,	private,	dimension(mx,nx)	::	el4
real,	private,	dimension(mx,nx)	::	trfilt
real,	private		::	gradx(mx)
real,	private		::	gradym(mx,nx)
real,	private		::	gradyp(mx,nx)
real,	private,	dimension(mx,nx)	::	uvdx
real,	private,	dimension(mx,nx)	::	uvdym
real,	private,	dimension(mx,nx)	::	uvdyp
real,	private,	dimension(mx,nx)	::	vddym
real,	private,	dimension(mx,nx)	::	vddyp

Functions

public function laplacian(input) result(output)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in)			::	input(mx,nx)

Return Value complex (mx,nx)

public function inverse_laplacian(input) result(output)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in)			::	input(mx,nx)

Return Value complex (mx,nx)

public function spec_to_grid(vorm, kcos) result(vorg)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in)			::	vorm(mx,nx)
integer,	intent(in)			::	kcos

Return Value real (ix,il)

public function grid_to_spec(vorg) result(vorm)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	vorg(ix,il)

Return Value complex (mx,nx)

Subroutines

public subroutine initialize_spectral()

Arguments

None

public subroutine grad(psi, psdx, psdy)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(inout),		dimension(mx,nx)	::	psi
complex,	intent(inout),		dimension(mx,nx)	::	psdx
complex,	intent(inout),		dimension(mx,nx)	::	psdy

public subroutine vds(ucosm, vcosm, vorm, divm)

Arguments

Type	Intent	Optional	Attributes		Name
complex,			dimension(mx,nx)	::	ucosm
complex,			dimension(mx,nx)	::	vcosm
complex,	intent(inout),		dimension(mx,nx)	::	vorm
complex,	intent(inout),		dimension(mx,nx)	::	divm

public subroutine uvspec(vorm, divm, ucosm, vcosm)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in),		dimension(mx,nx)	::	vorm
complex,	intent(in),		dimension(mx,nx)	::	divm
complex,	intent(inout),		dimension(mx,nx)	::	ucosm
complex,	intent(inout),		dimension(mx,nx)	::	vcosm

public subroutine vdspec(ug, vg, vorm, divm, kcos)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	ug(ix,il)
real,	intent(in)			::	vg(ix,il)
complex,	intent(out)			::	vorm(mx,nx)
complex,	intent(out)			::	divm(mx,nx)
integer,	intent(in)			::	kcos

public subroutine trunct(vor)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(inout)			::	vor(mx,nx)