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	drag_calc (scale)
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	build_gamma_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	planar_average_z (ua, u, w1, w2)
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	x_average (ua, u, w1, w2)
subroutine	x_average_transpose (u, ua)
subroutine	x_distribute (u)
subroutine	x_distribute2 (ua, u)
subroutine	y_slice (ua, u, w1, w2)
subroutine	z_slice_g (uz, u, w1, kz, ezi, nx, ny, nz, nlxy)
subroutine	z_slice (ua, u, w1, w2)
subroutine	y_average (ua, u, w1, w2)
subroutine	y_avg_buff (ux, uy, uz, c2, name, icount)
subroutine	z_avg_buff (ux, uy, uz, c2, name, icount)
subroutine	y_ins_buff (ux, uy, uz, c2, name, icount)
subroutine	z_ins_buff (ux, uy, uz, c2, name, icount)
subroutine	buff_2d_out (u, v, w, nx, ny, nex, ney, c2, name, ifld)
subroutine	y2d (u, v, w, p, c1, icount)
subroutine	z2d (u, v, w, p, c1, icount)
subroutine	anal_2d
subroutine	chkit (u, name4, n)
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	z_distribute (u)
subroutine	z_average (ua, u, w1, w2)
subroutine	z_average_transpose (u, ua)
subroutine	no_z_profile (u)
subroutine	z_profile (ua, u, w1, w2)
subroutine	z_profile_transpose (u, ua)
subroutine	no_y_profile (u)
subroutine	y_profile (ua, u, w1, w2)
subroutine	y_profile_transpose (u, ua)
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)

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
	)

anal_2d()

subroutine anal_2d

(

)

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

(

)

buff_2d_out()

subroutine buff_2d_out	(	real, dimension(1)	u,
		real, dimension(1)	v,
		real, dimension(1)	w,
			nx,
			ny,
			nex,
			ney,
		character*2	c2,
		character*2	name,
			ifld
	)

build_filter()

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

build_gamma_filter()

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

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
	)

chkit()

subroutine chkit	(	real, dimension(1)	u,
		character*4	name4,
			n
	)

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
	)

drag_calc()

subroutine drag_calc

(

scale

)

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
	)

no_y_profile()

subroutine no_y_profile

(

real, dimension(1)

u

)

no_z_profile()

subroutine no_z_profile

(

real, dimension(1)

u

)

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_average_z()

subroutine planar_average_z	(	real, dimension(lz1,nelz)	ua,
		real, dimension(lx1*ly1,lz1,nelv)	u,
		real, dimension(lz1,nelz)	w1,
		real, dimension(lz1,nelz)	w2
	)

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
	)

x_average()

subroutine x_average	(	real, dimension(ly1,lz1,nely,nelz)	ua,
		real, dimension (lx1,ly1,lz1,nelv)	u,
		real, dimension(ly1,lz1,nely,nelz)	w1,
		real, dimension(ly1,lz1,nely,nelz)	w2
	)

x_average_transpose()

subroutine x_average_transpose	(	real, dimension(lx1,ly1,lz1,nelv)	u,
		real, dimension(ly1,lz1,nely,nelz)	ua
	)

x_distribute()

subroutine x_distribute

(

real, dimension(1)

u

)

x_distribute2()

subroutine x_distribute2	(	real, dimension(1)	ua,
		real, dimension(1)	u
	)

y2d()

subroutine y2d	(	real, dimension(1)	u,
		real, dimension(1)	v,
		real, dimension(1)	w,
		real, dimension(1)	p,
		character*1	c1,
			icount
	)

y_average()

subroutine y_average	(	real, dimension(lx1,lz1,nelx,nelz)	ua,
		real, dimension (lx1,ly1,lz1,nelv)	u,
		real, dimension(lx1,lz1,nelx,nelz)	w1,
		real, dimension(lx1,lz1,nelx,nelz)	w2
	)

y_avg_buff()

subroutine y_avg_buff	(	real, dimension(1)	ux,
		real, dimension(1)	uy,
		real, dimension(1)	uz,
		character*2	c2,
		character*2	name,
			icount
	)

y_ins_buff()

subroutine y_ins_buff	(	real, dimension(1)	ux,
		real, dimension(1)	uy,
		real, dimension(1)	uz,
		character*2	c2,
		character*2	name,
			icount
	)

y_profile()

subroutine y_profile	(	real, dimension(lz1,lelz)	ua,
		real, dimension (lx1,ly1,lz1,nelv)	u,
		real, dimension(lz1,lelz)	w1,
		real, dimension(lz1,lelz)	w2
	)

y_profile_transpose()

subroutine y_profile_transpose	(	real, dimension(lx1,ly1,lz1,nelv)	u,
		real, dimension(lz1,lelz)	ua
	)

y_slice()

subroutine y_slice	(	real, dimension(lx1,lz1,nelx,nelz)	ua,
		real, dimension (lx1,ly1,lz1,nelv)	u,
		real, dimension(lx1,lz1,nelx,nelz)	w1,
		real, dimension(lx1,lz1,nelx,nelz)	w2
	)

z2d()

subroutine z2d	(	real, dimension(1)	u,
		real, dimension(1)	v,
		real, dimension(1)	w,
		real, dimension(1)	p,
		character*1	c1,
			icount
	)

z_average()

subroutine z_average	(	real, dimension(lx1,ly1,nelx,nely)	ua,
		real, dimension (lx1,ly1,lz1,nelv)	u,
		real, dimension(lx1,ly1,nelx,nely)	w1,
		real, dimension(lx1,ly1,nelx,nely)	w2
	)

z_average_transpose()

subroutine z_average_transpose	(	real, dimension(lx1,ly1,lz1,nelv)	u,
		real, dimension(lx1,ly1,nelx,nely)	ua
	)

z_avg_buff()

subroutine z_avg_buff	(	real, dimension(1)	ux,
		real, dimension(1)	uy,
		real, dimension(1)	uz,
		character*2	c2,
		character*2	name,
			icount
	)

z_distribute()

subroutine z_distribute

(

u

)

z_ins_buff()

subroutine z_ins_buff	(	real, dimension(1)	ux,
		real, dimension(1)	uy,
		real, dimension(1)	uz,
		character*2	c2,
		character*2	name,
			icount
	)

z_profile()

subroutine z_profile	(	real, dimension(lz1,lelz)	ua,
		real, dimension (lx1,ly1,lz1,nelv)	u,
		real, dimension(lz1,lelz)	w1,
		real, dimension(lz1,lelz)	w2
	)

z_profile_transpose()

subroutine z_profile_transpose	(	real, dimension(lx1,ly1,lz1,nelv)	u,
		real, dimension(lz1,lelz)	ua
	)

z_slice()

subroutine z_slice	(	real, dimension(lx1,ly1,nelx,nely)	ua,
		real, dimension (lx1,ly1,lz1,nelv)	u,
		real, dimension(lx1,ly1,nelx,nely)	w1,
		real, dimension(lx1,ly1,nelx,nely)	w2
	)

z_slice_g()

subroutine z_slice_g	(	real, dimension(nx,ny,nlxy)	uz,
		real, dimension (nx,ny,nz,nelv)	u,
		real, dimension(nx,ny,nlxy)	w1,
			kz,
		integer	ezi,
			nx,
			ny,
			nz,
			nlxy
	)