element_ops Module Reference

Functions/Subroutines
recursive subroutine	get_field (elem, name, field, hvcoord, nt, ntQ)
subroutine	get_phi (elem, phi, hvcoord, nt, ntQ)
subroutine	get_pottemp (elem, pottemp, hvcoord, nt, ntQ)
subroutine	get_temperature (elem, temperature, hvcoord, nt, ntQ)
subroutine	copy_state (elem, nin, nout)
subroutine	set_thermostate (elem, temperature, hvcoord, n0, n0_q)
subroutine	set_state (u, v, w, T, ps, phis, p, dp, zm, g, i, j, k, elem, n0, n1)
subroutine	set_elem_state (u, v, w, T, ps, phis, p, dp, zm, g, elem, n0, n1, ntQ)
subroutine	get_state (u, v, w, T, pnh, dp, ps, rho, zm, g, elem, hvcoord, nt, ntQ)
subroutine	save_initial_state (state, ie)
subroutine	set_forcing_rayleigh_friction (elem, zm, ztop, zc, tau, u0, v0, n)
subroutine	tests_finalize (elem, hvcoord, ns, ne, ie)

Variables
type(elem_state_t), dimension(:), allocatable	state0

Function/Subroutine Documentation

copy_state()

subroutine element_ops::copy_state	(	type (element_t), intent(inout)	elem,
		integer	nin,
		integer	nout
	)

Here is the caller graph for this function:

get_field()

recursive subroutine element_ops::get_field	(	type (element_t), intent(in)	elem,
		character(len=*), intent(in)	name,
		real (kind=real_kind), dimension(np,np,nlev), intent(out)	field,
		type (hvcoord_t), intent(in)	hvcoord,
		integer, intent(in)	nt,
		integer, intent(in)	ntQ
	)

Here is the call graph for this function:

get_phi()

subroutine element_ops::get_phi	(	type (element_t), intent(in)	elem,
		real (kind=real_kind), dimension(np,np,nlev), intent(out)	phi,
		type (hvcoord_t), intent(in)	hvcoord,
		integer, intent(in)	nt,
		integer, intent(in)	ntQ
	)

Here is the call graph for this function:

Here is the caller graph for this function:

get_pottemp()

subroutine element_ops::get_pottemp	(	type (element_t), intent(in)	elem,
		real (kind=real_kind), dimension(np,np,nlev), intent(out)	pottemp,
		type (hvcoord_t), intent(in)	hvcoord,
		integer, intent(in)	nt,
		integer, intent(in)	ntQ
	)

Here is the caller graph for this function:

get_state()

subroutine element_ops::get_state	(	real(real_kind), dimension(np,np,nlev), intent(inout)	u,
		real(real_kind), dimension(np,np,nlev), intent(inout)	v,
		real(real_kind), dimension(np,np,nlev), intent(inout)	w,
		real(real_kind), dimension(np,np,nlev), intent(inout)	T,
		real(real_kind), dimension(np,np,nlev), intent(inout)	pnh,
		real(real_kind), dimension(np,np,nlev), intent(inout)	dp,
		real(real_kind), dimension(np,np), intent(inout)	ps,
		real(real_kind), dimension(np,np,nlev), intent(inout)	rho,
		real(real_kind), dimension(np,np,nlev), intent(inout)	zm,
		real(real_kind), intent(in)	g,
		type(element_t), intent(inout)	elem,
		type (hvcoord_t), intent(in)	hvcoord,
		integer, intent(in)	nt,
		integer, intent(in)	ntQ
	)

Here is the call graph for this function:

get_temperature()

subroutine element_ops::get_temperature	(	type (element_t), intent(in)	elem,
		real (kind=real_kind), dimension(np,np,nlev), intent(out)	temperature,
		type (hvcoord_t), intent(in)	hvcoord,
		integer, intent(in)	nt,
		integer, intent(in)	ntQ
	)

Here is the caller graph for this function:

save_initial_state()

subroutine element_ops::save_initial_state	(	type(elem_state_t), intent(inout)	state,
		integer, intent(in)	ie
	)

set_elem_state()

subroutine element_ops::set_elem_state	(	real(real_kind), dimension(np,np,nlev), intent(in)	u,
		real(real_kind), dimension(np,np,nlev), intent(in)	v,
		real(real_kind), dimension(np,np,nlev), intent(in)	w,
		real(real_kind), dimension(np,np,nlev), intent(in)	T,
		real(real_kind), dimension(np,np), intent(in)	ps,
		real(real_kind), dimension(np,np), intent(in)	phis,
		real(real_kind), dimension(np,np,nlev), intent(in)	p,
		real(real_kind), dimension(np,np,nlev), intent(in)	dp,
		real(real_kind), dimension(np,np,nlev), intent(in)	zm,
		real(real_kind), intent(in)	g,
		type(element_t), intent(inout)	elem,
		integer, intent(in)	n0,
		integer, intent(in)	n1,
		integer, intent(in)	ntQ
	)

set_forcing_rayleigh_friction()

subroutine element_ops::set_forcing_rayleigh_friction	(	type(element_t), intent(inout)	elem,
		real(real_kind), dimension(nlev), intent(in)	zm,
		real(real_kind), intent(in)	ztop,
		real(real_kind), intent(in)	zc,
		real(real_kind), intent(in)	tau,
		real(real_kind), dimension(np,np,nlev), intent(in)	u0,
		real(real_kind), dimension(np,np,nlev), intent(in)	v0,
		integer, intent(in)	n
	)

set_state()

subroutine element_ops::set_state	(	real(real_kind), intent(in)	u,
		real(real_kind), intent(in)	v,
		real(real_kind), intent(in)	w,
		real(real_kind), intent(in)	T,
		real(real_kind), intent(in)	ps,
		real(real_kind), intent(in)	phis,
		real(real_kind), intent(in)	p,
		real(real_kind), intent(in)	dp,
		real(real_kind), intent(in)	zm,
		real(real_kind), intent(in)	g,
		integer, intent(in)	i,
		integer, intent(in)	j,
		integer, intent(in)	k,
		type(element_t), intent(inout)	elem,
		integer, intent(in)	n0,
		integer, intent(in)	n1
	)

set_thermostate()

subroutine element_ops::set_thermostate	(	type (element_t), intent(inout)	elem,
		real (kind=real_kind), dimension(np,np,nlev), intent(in)	temperature,
		type (hvcoord_t), intent(in)	hvcoord,
		integer	n0,
		integer	n0_q
	)

tests_finalize()

subroutine element_ops::tests_finalize	(	type(element_t), intent(inout)	elem,
		type(hvcoord_t), intent(in)	hvcoord,
		integer, intent(in)	ns,
		integer, intent(in)	ne,
		integer, intent(in), optional	ie
	)

Variable Documentation

state0

type(elem_state_t), dimension(:), allocatable element_ops::state0