navier5.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	q_filter (wght)
subroutine	filterq (v, f, nx, nz, w1, w2, ft, if3d, dmax)
subroutine	outmatx (a, m, n, io, name)
subroutine	mappr (pm1, pm2, pa, pb)
function	facint_a (a, area, f, e)
function	facint_v (a, area, f, e)
function	facint (a, b, area, ifc, ie)
function	facint2 (a, b, c, area, ifc, ie)
subroutine	out_csrmats (acsr, ia, ja, n, name9)
subroutine	local_grad3 (ur, us, ut, u, N, e, D, Dt)
subroutine	local_grad2 (ur, us, u, N, e, D, Dt)
subroutine	gradm1 (ux, uy, uz, u)
subroutine	comp_vort3 (vort, work1, work2, u, v, w)
subroutine	surface_int (sint, sarea, a, e, f)
subroutine	surface_flux (dq, qx, qy, qz, e, f, w)
subroutine	gaujordf (a, m, n, indr, indc, ipiv, ierr, rmult)
subroutine	legendre_poly (L, x, N)
subroutine	build_new_filter (intv, zpts, nx, kut, wght, nio)
subroutine	avg_all
subroutine	avg1 (avg, f, alpha, beta, n, name, ifverbose)
subroutine	avg2 (avg, f, alpha, beta, n, name, ifverbose)
subroutine	avg3 (avg, f, g, alpha, beta, n, name, ifverbose)
subroutine	build_legend_transform (Lj, Ljt, zpts, nx)
subroutine	local_err_est (err, u, nx, Lj, Ljt, uh, w, if3d)
subroutine	get_exyz (ex, ey, ez, eg, nelx, nely, nelz)
subroutine	dump_header2d (excode, nx, ny, nlx, nly, ierr)
subroutine	outfld2d_p (u, v, w, nx, ny, nlx, nly, name, ifld, jid, npido, ir)
subroutine	outfld2d (u, v, w, nx, ny, nlx, nly, name, ifld)
subroutine	drgtrq (dgtq, xm0, ym0, zm0, sij, pm1, visc, f, e)
subroutine	torque_calc (scale, x0, ifdout, iftout)
subroutine	comp_sij (sij, nij, u, v, w, ur, us, ut, vr, vs, vt, wr, ws, wt)
subroutine	auto_averager (fname127)
subroutine	outmesh
subroutine	out_el (xt, e)
subroutine	get_el (xt, x, y, z)
subroutine	shear_calc_max (strsmx, scale, x0, ifdout, iftout)
subroutine	get_strsmax (strsmax, xm0, ym0, zm0, sij, pm1, visc, f, e)
subroutine	fix_geom
subroutine	gh_face_extend (x, zg, n, gh_type, e, v)
subroutine	gh_face_extend_2d (x, zg, n, gh_type, e, v)
subroutine	gh_face_extend_3d (x, zg, n, gh_type, e, v)
real function	ran1 (idum)
subroutine	rand_fld_h1 (x)
subroutine	rescale_x (x, x0, x1)
subroutine	build_filter (f, diag, nx)
subroutine	g_filter (u, diag, ifld)
subroutine	cut_off_filter (u, mx, ifld)
subroutine	filter_d2 (v, nx, nz, wgt, ifd4)
function	dist3d (a, b, c, x, y, z)
function	dist2d (a, b, x, y)
subroutine	domain_size (xmin, xmax, ymin, ymax, zmin, zmax)
subroutine	cheap_dist (d, ifld, b)
subroutine	distf (d, ifld, b, dmin, emin, xn, yn, zn)
subroutine	turb_outflow (d, m1, rq, uin)
subroutine	add_temp (f2tbc, nbc, npass)
subroutine	add_temp_1 (f2tbc, nbc)
subroutine	planar_avg (ua, u, hndl)

Function/Subroutine Documentation

add_temp()

subroutine add_temp	(	character*3, dimension(2,nbc)	f2tbc,
			nbc,
			npass
	)

Definition at line 3329 of file navier5.f.

References add_temp_1(), and setup_topo().

Here is the call graph for this function:

add_temp_1()

subroutine add_temp_1	(	character*3, dimension(2,nbc)	f2tbc,
			nbc
	)

Definition at line 3348 of file navier5.f.

References chcopy(), copy(), and icopy().

Here is the call graph for this function:

Here is the caller graph for this function:

auto_averager()

subroutine auto_averager

(

character*127

fname127

)

Definition at line 1958 of file navier5.f.

References add2(), bcast(), blank(), chcopy(), cmult2(), exitti(), iglmax(), indx1(), opadd2(), restart(), rzero(), and scale().

Here is the call graph for this function:

avg1()

subroutine avg1	(	real, dimension(n)	avg,
		real, dimension(n)	f,
			alpha,
			beta,
			n,
		character*4	name,
		logical	ifverbose
	)

Definition at line 1018 of file navier5.f.

References glmax(), and glmin().

Here is the call graph for this function:

Here is the caller graph for this function:

avg2()

subroutine avg2	(	real, dimension(n)	avg,
		real, dimension(n)	f,
			alpha,
			beta,
			n,
		character*4	name,
		logical	ifverbose
	)

Definition at line 1041 of file navier5.f.

References glmax(), and glmin().

Here is the call graph for this function:

Here is the caller graph for this function:

avg3()

subroutine avg3	(	real, dimension(n)	avg,
		real, dimension(n)	f,
		real, dimension(n)	g,
			alpha,
			beta,
			n,
		character*4	name,
		logical	ifverbose
	)

Definition at line 1064 of file navier5.f.

References glmax(), and glmin().

Here is the call graph for this function:

Here is the caller graph for this function:

avg_all()

subroutine avg_all

Definition at line 882 of file navier5.f.

References avg1(), avg2(), avg3(), exitt(), outpost(), outpost2(), and rzero().

Here is the call graph for this function:

build_filter()

subroutine build_filter	(	real, dimension(nx,nx)	f,
		real, dimension(nx)	diag,
			nx
	)

Definition at line 2719 of file navier5.f.

References copy(), exitti(), gaujordf(), legendre_poly(), mxm(), transpose(), and zwgll().

Here is the call graph for this function:

Here is the caller graph for this function:

build_legend_transform()

subroutine build_legend_transform	(	real, dimension(nx*nx)	Lj,
		real, dimension(nx*nx)	Ljt,
		real, dimension(nx)	zpts,
			nx
	)

Definition at line 1087 of file navier5.f.

References exitt(), gaujordf(), legendre_poly(), transpose(), and transpose1().

Here is the call graph for this function:

build_new_filter()

subroutine build_new_filter	(	real, dimension(nx,nx)	intv,
		real, dimension(nx)	zpts,
			nx,
			kut,
			wght,
			nio
	)

Definition at line 800 of file navier5.f.

References copy(), exitt(), gaujordf(), ident(), legendre_poly(), mxm(), and transpose().

Here is the call graph for this function:

Here is the caller graph for this function:

cheap_dist()

subroutine cheap_dist	(	real, dimension(lx1,ly1,lz1,lelt)	d,
			ifld,
		character*3	b
	)

Definition at line 2969 of file navier5.f.

References cfill(), dist2d(), dist3d(), domain_size(), facev(), glmax(), and iglsum().

Here is the call graph for this function:

Here is the caller graph for this function:

comp_sij()

subroutine comp_sij	(	real, dimension(lx1*ly1*lz1,nij,lelv)	sij,
			nij,
		real, dimension (lx1*ly1*lz1,lelv)	u,
		real, dimension (lx1*ly1*lz1,lelv)	v,
		real, dimension (lx1*ly1*lz1,lelv)	w,
		real, dimension (1)	ur,
		real, dimension (1)	us,
		real, dimension (1)	ut,
		real, dimension (1)	vr,
		real, dimension (1)	vs,
		real, dimension (1)	vt,
		real, dimension (1)	wr,
		real, dimension (1)	ws,
		real, dimension (1)	wt
	)

Definition at line 1823 of file navier5.f.

References local_grad2(), local_grad3(), and setaxdy().

Here is the call graph for this function:

Here is the caller graph for this function:

comp_vort3()

subroutine comp_vort3	(	real, dimension(lt,3)	vort,
		real, dimension(1)	work1,
		real, dimension(1)	work2,
		real, dimension(1)	u,
		real, dimension(1)	v,
		real, dimension(1)	w
	)

Definition at line 512 of file navier5.f.

References col2(), dssum(), local_grad2(), and local_grad3().

Here is the call graph for this function:

cut_off_filter()

subroutine cut_off_filter	(	real, dimension(1)	u,
			mx,
			ifld
	)

Definition at line 2800 of file navier5.f.

References build_filter(), filterq(), and rone().

Here is the call graph for this function:

dist2d()

function dist2d	(		a,
			b,
			x,
			y
	)

Definition at line 2937 of file navier5.f.

Here is the caller graph for this function:

dist3d()

function dist3d	(		a,
			b,
			c,
			x,
			y,
			z
	)

Definition at line 2927 of file navier5.f.

Here is the caller graph for this function:

distf()

subroutine distf	(	real, dimension(lx1,ly1,lz1,lelt)	d,
			ifld,
		character*3	b,
		real, dimension(lx1,ly1,lz1,lelt)	dmin,
		real, dimension(lx1,ly1,lz1,lelt)	emin,
		real, dimension(lx1,ly1,lz1,lelt)	xn,
		real, dimension(lx1,ly1,lz1,lelt)	yn,
		real, dimension(lx1,ly1,lz1,lelt)	zn
	)

Definition at line 3066 of file navier5.f.

References cfill(), copy(), domain_size(), facev(), glmax(), iglsum(), and opcopy().

Here is the call graph for this function:

Here is the caller graph for this function:

domain_size()

subroutine domain_size	(		xmin,
			xmax,
			ymin,
			ymax,
			zmin,
			zmax
	)

Definition at line 2947 of file navier5.f.

References glmax(), and glmin().

Here is the call graph for this function:

Here is the caller graph for this function:

drgtrq()

subroutine drgtrq	(	real, dimension(3,4)	dgtq,
		real, dimension (lx1,ly1,lz1,lelt)	xm0,
		real, dimension (lx1,ly1,lz1,lelt)	ym0,
		real, dimension (lx1,ly1,lz1,lelt)	zm0,
		real, dimension (lx1,ly1,lz1,3*ldim-3,lelv)	sij,
		real, dimension (lx1,ly1,lz1,lelv)	pm1,
		real, dimension(lx1,ly1,lz1,lelv)	visc,
		integer	f,
		integer	e
	)

Definition at line 1489 of file navier5.f.

References dsset(), and rzero().

Here is the call graph for this function:

Here is the caller graph for this function:

dump_header2d()

subroutine dump_header2d	(	character*2, dimension(15)	excode,
			nx,
			ny,
			nlx,
			nly,
			ierr
	)

Definition at line 1264 of file navier5.f.

References byte_write.

Here is the caller graph for this function:

facint()

function facint	(	dimension (lx1,ly1,lz1,lelv)	a,
		dimension (lx1,lz1,6,lelv)	b,
		dimension (lx1,lz1,6,lelv)	area,
			ifc,
			ie
	)

Definition at line 329 of file navier5.f.

References dsset().

Here is the call graph for this function:

facint2()

function facint2	(	dimension (lx1,ly1,lz1,lelv)	a,
		dimension (lx1,lz1,6,lelv)	b,
		dimension (lx1,lz1,6,lelv)	c,
		dimension (lx1,lz1,6,lelv)	area,
			ifc,
			ie
	)

Definition at line 369 of file navier5.f.

References dsset().

Here is the call graph for this function:

facint_a()

function facint_a	(	real, dimension(lx1,lz1,6,lelt)	a,
		real, dimension(lx1,lz1,6,lelt)	area,
		integer	f,
		integer	e
	)

Definition at line 273 of file navier5.f.

facint_v()

function facint_v	(	real, dimension(lx1,ly1,lz1,lelt)	a,
		real, dimension(lx1,lz1,6,lelt)	area,
		integer	f,
		integer	e
	)

Definition at line 294 of file navier5.f.

References dsset().

Here is the call graph for this function:

filter_d2()

subroutine filter_d2	(	real, dimension(lt,nelt)	v,
			nx,
			nz,
			wgt,
		logical	ifd4
	)

Definition at line 2828 of file navier5.f.

References dsavg(), glamax(), local_grad2(), local_grad2_t(), local_grad3(), and local_grad3_t().

Here is the call graph for this function:

filterq()

subroutine filterq	(	real, dimension(nx*nx*nz,nelt)	v,
		real, dimension(nx,nx)	f,
			nx,
			nz,
		real, dimension(1)	w1,
		real, dimension(1)	w2,
		real, dimension(nx,nx)	ft,
		logical	if3d,
			dmax
	)

Definition at line 166 of file navier5.f.

References copy(), mxm(), sub3(), transpose(), and vlamax().

Here is the call graph for this function:

Here is the caller graph for this function:

fix_geom()

subroutine fix_geom

Definition at line 2321 of file navier5.f.

References add2(), copy(), dsop(), dssum(), facev(), geom_reset(), gh_face_extend(), glamax(), glmax(), and rone().

Here is the call graph for this function:

Here is the caller graph for this function:

g_filter()

subroutine g_filter	(	real, dimension(1)	u,
		real, dimension(1)	diag,
			ifld
	)

Definition at line 2777 of file navier5.f.

References build_filter(), and filterq().

Here is the call graph for this function:

gaujordf()

subroutine gaujordf	(	real, dimension(m,n)	a,
			m,
			n,
		integer, dimension(m)	indr,
		integer, dimension(n)	indc,
		integer, dimension(n)	ipiv,
			ierr,
		real, dimension(m)	rmult
	)

Definition at line 667 of file navier5.f.

References exitt(), and izero().

Here is the call graph for this function:

Here is the caller graph for this function:

get_el()

subroutine get_el	(	real, dimension(2**ldim,ldim)	xt,
		real, dimension(lx1,ly1,lz1)	x,
		real, dimension(lx1,ly1,lz1)	y,
		real, dimension(lx1,ly1,lz1)	z
	)

Definition at line 2110 of file navier5.f.

Here is the caller graph for this function:

get_exyz()

subroutine get_exyz	(	integer	ex,
		integer	ey,
		integer	ez,
		integer	eg,
			nelx,
			nely,
			nelz
	)

Definition at line 1251 of file navier5.f.

References mod1().

Here is the call graph for this function:

Here is the caller graph for this function:

get_strsmax()

subroutine get_strsmax	(		strsmax,
		real, dimension (lx1,ly1,lz1,lelt)	xm0,
		real, dimension (lx1,ly1,lz1,lelt)	ym0,
		real, dimension (lx1,ly1,lz1,lelt)	zm0,
		real, dimension (lx1,ly1,lz1,3*ldim-3,lelv)	sij,
		real, dimension (lx1,ly1,lz1,lelv)	pm1,
		real, dimension(lx1,ly1,lz1,lelv)	visc,
		integer	f,
		integer	e
	)

Definition at line 2227 of file navier5.f.

References dsset().

Here is the call graph for this function:

Here is the caller graph for this function:

gh_face_extend()

subroutine gh_face_extend	(	real, dimension(1)	x,
		real, dimension(1)	zg,
			n,
		integer	gh_type,
		real, dimension(1)	e,
		real, dimension(1)	v
	)

Definition at line 2421 of file navier5.f.

References gh_face_extend_2d(), and gh_face_extend_3d().

Here is the call graph for this function:

Here is the caller graph for this function:

gh_face_extend_2d()

subroutine gh_face_extend_2d	(	real, dimension(n,n)	x,
		real, dimension(n)	zg,
			n,
		integer	gh_type,
		real, dimension(n,n)	e,
		real, dimension(n,n)	v
	)

Definition at line 2436 of file navier5.f.

References add3(), copy(), and rzero().

Here is the call graph for this function:

Here is the caller graph for this function:

gh_face_extend_3d()

subroutine gh_face_extend_3d	(	real, dimension(n,n,n)	x,
		real, dimension(n)	zg,
			n,
		integer	gh_type,
		real, dimension(n,n,n)	e,
		real, dimension(n,n,n)	v
	)

Definition at line 2501 of file navier5.f.

References add2(), copy(), and rzero().

Here is the call graph for this function:

Here is the caller graph for this function:

gradm1()

subroutine gradm1	(	real, dimension(lxyz,1)	ux,
		real, dimension(lxyz,1)	uy,
		real, dimension(lxyz,1)	uz,
		real, dimension(lxyz,1)	u
	)

Definition at line 462 of file navier5.f.

References local_grad2(), local_grad3(), and setaxdy().

Here is the call graph for this function:

Here is the caller graph for this function:

legendre_poly()

subroutine legendre_poly	(	real, dimension(0:n)	L,
			x,
			N
	)

Definition at line 784 of file navier5.f.

Here is the caller graph for this function:

local_err_est()

subroutine local_err_est	(	real, dimension(5,2)	err,
		real, dimension(1)	u,
			nx,
		real, dimension(1)	Lj,
		real, dimension(1)	Ljt,
		real, dimension(nx,nx,nx)	uh,
		real, dimension(1)	w,
		logical	if3d
	)

Definition at line 1116 of file navier5.f.

References rzero(), tensr3(), and vlsc2().

Here is the call graph for this function:

local_grad2()

subroutine local_grad2	(	real, dimension(0:n,0:n)	ur,
		real, dimension(0:n,0:n)	us,
		real, dimension (0:n,0:n,1)	u,
			N,
		integer	e,
		real, dimension (0:n,0:n)	D,
		real, dimension(0:n,0:n)	Dt
	)

Definition at line 447 of file navier5.f.

References mxm().

Here is the call graph for this function:

Here is the caller graph for this function:

local_grad3()

subroutine local_grad3	(	real, dimension(0:n,0:n,0:n)	ur,
		real, dimension(0:n,0:n,0:n)	us,
		real, dimension(0:n,0:n,0:n)	ut,
		real, dimension (0:n,0:n,0:n,1)	u,
			N,
		integer	e,
		real, dimension (0:n,0:n)	D,
		real, dimension(0:n,0:n)	Dt
	)

Definition at line 428 of file navier5.f.

References mxm().

Here is the call graph for this function:

Here is the caller graph for this function:

mappr()

subroutine mappr	(	real, dimension(lx1,ly1,lz1,lelv)	pm1,
		real, dimension(lx2,ly2,lz2,lelv)	pm2,
		real, dimension (lx1,ly2,lz2)	pa,
		real, dimension (lx1,ly1,lz2)	pb
	)

Definition at line 236 of file navier5.f.

References col2(), copy(), dssum(), and mxm().

Here is the call graph for this function:

Here is the caller graph for this function:

out_csrmats()

subroutine out_csrmats	(	real, dimension(1)	acsr,
		integer, dimension(1)	ia,
		integer, dimension(1)	ja,
			n,
		character*9	name9
	)

Definition at line 397 of file navier5.f.

References blank().

Here is the call graph for this function:

out_el()

subroutine out_el	(	real, dimension(2**ldim,ldim)	xt,
		integer	e
	)

Definition at line 2089 of file navier5.f.

Here is the caller graph for this function:

outfld2d()

subroutine outfld2d	(	real, dimension(nx*ny*nlx*nly)	u,
		real, dimension(nx*ny*nlx*nly)	v,
		real, dimension(nx*ny*nlx*nly)	w,
			nx,
			ny,
			nlx,
			nly,
		character*3	name,
			ifld
	)

Definition at line 1421 of file navier5.f.

References blank(), dump_header2d(), and err_chk().

Here is the call graph for this function:

outfld2d_p()

subroutine outfld2d_p	(	real, dimension(nx*ny*nlx*nly)	u,
		real, dimension(nx*ny*nlx*nly)	v,
		real, dimension(nx*ny*nlx*nly)	w,
			nx,
			ny,
			nlx,
			nly,
		character*4	name,
			ifld,
			jid,
			npido,
			ir
	)

Definition at line 1340 of file navier5.f.

References blank(), and dump_header2d().

Here is the call graph for this function:

outmatx()

subroutine outmatx	(	real, dimension(m*n)	a,
			m,
			n,
			io,
		character*4	name
	)

Definition at line 222 of file navier5.f.

outmesh()

subroutine outmesh

Definition at line 2053 of file navier5.f.

References crecv2(), csend(), exitt(), get_el(), gllel(), gllnid(), nekgsync(), and out_el().

Here is the call graph for this function:

planar_avg()

subroutine planar_avg	(	real, dimension(*)	ua,
		real, dimension (*)	u,
			hndl
	)

Definition at line 3419 of file navier5.f.

References copy(), and invcol1().

Here is the call graph for this function:

q_filter()

subroutine q_filter

(

wght

)

Definition at line 2 of file navier5.f.

References add2sxy(), build_new_filter(), exitti(), filterq(), ident(), igllm(), iglm(), iglmax(), mxm(), zwgl(), and zwgll().

Here is the call graph for this function:

Here is the caller graph for this function:

ran1()

real function ran1

(

integer

idum

)

Definition at line 2649 of file navier5.f.

Here is the caller graph for this function:

rand_fld_h1()

subroutine rand_fld_h1

(

real, dimension(1)

x

)

Definition at line 2686 of file navier5.f.

References dsavg(), and ran1().

Here is the call graph for this function:

Here is the caller graph for this function:

rescale_x()

subroutine rescale_x	(	real, dimension(1)	x,
			x0,
			x1
	)

Definition at line 2701 of file navier5.f.

References glmax(), glmin(), and scale().

Here is the call graph for this function:

shear_calc_max()

subroutine shear_calc_max	(	real, dimension(maxobj)	strsmx,
			scale,
		real, dimension(3)	x0,
		logical	ifdout,
		logical	iftout
	)

Definition at line 2132 of file navier5.f.

References add2s2(), cadd2(), cfill(), cmult(), comp_sij(), get_strsmax(), gllel(), gllnid(), glmax(), glmin(), gop(), mappr(), rzero(), and scale().

Here is the call graph for this function:

surface_flux()

subroutine surface_flux	(		dq,
		real, dimension(l,1)	qx,
		real, dimension(l,1)	qy,
		real, dimension(l,1)	qz,
		integer	e,
		integer	f,
		real, dimension(lx1,ly1,lz1)	w
	)

Definition at line 631 of file navier5.f.

References dsset(), faccl3(), and faddcl3().

Here is the call graph for this function:

surface_int()

subroutine surface_int	(		sint,
			sarea,
		real, dimension(lx1,ly1,lz1,1)	a,
		integer	e,
		integer	f
	)

Definition at line 597 of file navier5.f.

References dsset().

Here is the call graph for this function:

torque_calc()

subroutine torque_calc	(		scale,
		real, dimension(3)	x0,
		logical	ifdout,
		logical	iftout
	)

Definition at line 1623 of file navier5.f.

References add2s2(), cadd2(), cfill(), cmult(), comp_sij(), drgtrq(), gllel(), gllnid(), glmax(), glmin(), gop(), mappr(), and scale().

Here is the call graph for this function:

turb_outflow()

subroutine turb_outflow	(	real, dimension(lx2,ly2,lz2,lelt)	d,
		real, dimension(lx1*ly1*lz1,lelt)	m1,
			rq,
			uin
	)

Definition at line 3211 of file navier5.f.

References cheap_dist(), copy(), glamax(), glsc2(), glsc3(), iglsum(), maph1_to_l2(), rone(), rzero(), and vlmax().

Here is the call graph for this function: