navier5.f File Reference

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)
	Uses mxm() to compute gradient of 3D arrays. More...
subroutine	local_grad2 (ur, us, u, N, e, D, Dt)
	Uses mxm() to compute gradient of 2D arrays. More...
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
	)

add_temp_1()

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

auto_averager()

subroutine auto_averager

(

character*127

fname127

)

avg1()

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

avg2()

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

avg3()

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

avg_all()

subroutine avg_all

build_filter()

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

build_legend_transform()

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

build_new_filter()

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

cheap_dist()

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

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
	)

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
	)

cut_off_filter()

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

dist2d()

function dist2d	(		a,
			b,
			x,
			y
	)

dist3d()

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

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
	)

domain_size()

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

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
	)

dump_header2d()

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

facint()

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

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
	)

facint_a()

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

facint_v()

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

filter_d2()

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

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
	)

fix_geom()

subroutine fix_geom

g_filter()

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

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
	)

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
	)

get_exyz()

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

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
	)

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
	)

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
	)

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
	)

gradm1()

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

legendre_poly()

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

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
	)

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
	)

out_csrmats()

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

out_el()

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

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
	)

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
	)

outmatx()

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

outmesh()

subroutine outmesh

planar_avg()

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

q_filter()

subroutine q_filter

(

wght

)

ran1()

real function ran1

(

integer

idum

)

rand_fld_h1()

subroutine rand_fld_h1

(

real, dimension(1)

x

)

rescale_x()

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

shear_calc_max()

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

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
	)

surface_int()

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

torque_calc()

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

turb_outflow()

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