induct.f File Reference

Functions/Subroutines
subroutine	induct (igeom)
subroutine	lagbfield
subroutine	makebsource_mhd
subroutine	makeufb
subroutine	makextb
subroutine	makebdfb
subroutine	cresvib (resv1, resv2, resv3, h1, h2)
subroutine	cresvibp (resv1, resv2, resv3, h1, h2)
subroutine	incomprn (ux, uy, uz, up)
	Project U onto the closest incompressible field. More...
subroutine	extrapp (p, plag)
subroutine	opzero (ux, uy, uz)
subroutine	opnorm (unorm, ux, uy, uz, type3)
subroutine	lorentz_force (lf, b1, b2, b3, w1, w2)
subroutine	curl (vort, u, v, w, ifavg, work1, work2)
subroutine	lorentz_force2 (lf, b1, b2, b3)
subroutine	lorentz_force_e (lf, b1, b2, b3, e)
subroutine	spec_curl_e (cb, b1, b2, b3, rx, ry, rz, sx, sy, sz, tx, ty, tz)
subroutine	specx (b, nb, a, na, ba, ab, w)
subroutine	phys_to_elsasser (u1, u2, u3, b1, b2, b3, n)
subroutine	elsasser_to_phys (u1, u2, u3, b1, b2, b3, n)
subroutine	phys_to_elsasser2 (u1, b1, n)
subroutine	elsasser_to_phys2 (u1, b1, n)
subroutine	elsasserh (igeom)
subroutine	compute_cfl (cfl, u, v, w, dt)
subroutine	getdr (dri, zgm1, lx1)
subroutine	ophinv (o1, o2, o3, i1, i2, i3, h1, h2, tolh, nmxhi)
subroutine	set_ifbcor
subroutine	setrhsp (p, h1, h2, h2inv, pset, niprev)
subroutine	gensolnp (p, h1, h2, h2inv, pset, nprev)
subroutine	econjp (pset, nprev, h1, h2, h2inv, ierr)
subroutine	advab_elsasser_fast
subroutine	cfl_check

Function/Subroutine Documentation

advab_elsasser_fast()

subroutine advab_elsasser_fast

cfl_check()

subroutine cfl_check

compute_cfl()

subroutine compute_cfl	(		cfl,
		real, dimension(lx1,ly1,lz1,nelv)	u,
		real, dimension(lx1,ly1,lz1,nelv)	v,
		real, dimension(lx1,ly1,lz1,nelv)	w,
			dt
	)

cresvib()

subroutine cresvib	(	real, dimension (lx1,ly1,lz1,1)	resv1,
		real, dimension (lx1,ly1,lz1,1)	resv2,
		real, dimension (lx1,ly1,lz1,1)	resv3,
		real, dimension (lx1,ly1,lz1,1)	h1,
		real, dimension (lx1,ly1,lz1,1)	h2
	)

cresvibp()

subroutine cresvibp	(	real, dimension (lx1,ly1,lz1,1)	resv1,
		real, dimension (lx1,ly1,lz1,1)	resv2,
		real, dimension (lx1,ly1,lz1,1)	resv3,
		real, dimension (lx1,ly1,lz1,1)	h1,
		real, dimension (lx1,ly1,lz1,1)	h2
	)

curl()

subroutine curl	(	real, dimension(lt,3)	vort,
		real, dimension(1)	u,
		real, dimension(1)	v,
		real, dimension(1)	w,
		logical	ifavg,
		real, dimension(1)	work1,
		real, dimension(1)	work2
	)

econjp()

subroutine econjp	(	real, dimension (lx2*ly2*lz2*lelv,mxprev)	pset,
			nprev,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2,
		real, dimension(lx1,ly1,lz1,lelv)	h2inv,
			ierr
	)

elsasser_to_phys()

subroutine elsasser_to_phys	(	real, dimension(1)	u1,
		real, dimension(1)	u2,
		real, dimension(1)	u3,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
			n
	)

elsasser_to_phys2()

subroutine elsasser_to_phys2	(	real, dimension(1)	u1,
		real, dimension(1)	b1,
			n
	)

elsasserh()

subroutine elsasserh

(

igeom

)

extrapp()

subroutine extrapp	(	real, dimension (lx2,ly2,lz2,1)	p,
		real, dimension (lx2,ly2,lz2,1)	plag
	)

gensolnp()

subroutine gensolnp	(	real, dimension (lx2,ly2,lz2,lelv)	p,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2,
		real, dimension(lx1,ly1,lz1,lelv)	h2inv,
		real, dimension (lx2*ly2*lz2*lelv,mxprev)	pset,
			nprev
	)

getdr()

subroutine getdr	(	real, dimension(lx1)	dri,
		real, dimension(lx1)	zgm1,
			lx1
	)

induct()

subroutine induct

(

igeom

)

lagbfield()

subroutine lagbfield

lorentz_force()

subroutine lorentz_force	(	real, dimension(lx1*ly1*lz1*lelv,ldim)	lf,
		real, dimension(lx1*ly1*lz1*lelv)	b1,
		real, dimension(lx1*ly1*lz1*lelv)	b2,
		real, dimension(lx1*ly1*lz1*lelv)	b3,
			w1,
			w2
	)

lorentz_force2()

subroutine lorentz_force2	(	real, dimension(lx1*ly1*lz1*ldim,lelt)	lf,
		real, dimension(lx1*ly1*lz1,lelt)	b1,
		real, dimension(lx1*ly1*lz1,lelt)	b2,
		real, dimension(lx1*ly1*lz1,lelt)	b3
	)

lorentz_force_e()

subroutine lorentz_force_e	(	real, dimension(lx1*ly1*lz1,3)	lf,
		real, dimension(lx1*ly1*lz1)	b1,
		real, dimension(lx1*ly1*lz1)	b2,
		real, dimension(lx1*ly1*lz1)	b3,
		integer	e
	)

makebdfb()

subroutine makebdfb

makebsource_mhd()

subroutine makebsource_mhd

makeufb()

subroutine makeufb

makextb()

subroutine makextb

ophinv()

subroutine ophinv	(	real, dimension (lx1,ly1,lz1,1)	o1,
		real, dimension (lx1,ly1,lz1,1)	o2,
		real, dimension (lx1,ly1,lz1,1)	o3,
		real, dimension (lx1,ly1,lz1,1)	i1,
		real, dimension (lx1,ly1,lz1,1)	i2,
		real, dimension (lx1,ly1,lz1,1)	i3,
		real, dimension (lx1,ly1,lz1,1)	h1,
		real, dimension (lx1,ly1,lz1,1)	h2,
			tolh,
			nmxhi
	)

opnorm()

subroutine opnorm	(		unorm,
		real, dimension(1)	ux,
		real, dimension(1)	uy,
		real, dimension(1)	uz,
		character*3	type3
	)

opzero()

subroutine opzero	(	real, dimension(1)	ux,
		real, dimension(1)	uy,
		real, dimension(1)	uz
	)

phys_to_elsasser()

subroutine phys_to_elsasser	(	real, dimension(1)	u1,
		real, dimension(1)	u2,
		real, dimension(1)	u3,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
			n
	)

phys_to_elsasser2()

subroutine phys_to_elsasser2	(	real, dimension(1)	u1,
		real, dimension(1)	b1,
			n
	)

set_ifbcor()

subroutine set_ifbcor

setrhsp()

subroutine setrhsp	(	real, dimension (lx2,ly2,lz2,lelv)	p,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2,
		real, dimension(lx1,ly1,lz1,lelv)	h2inv,
		real, dimension (lx2*ly2*lz2*lelv,mxprev)	pset,
			niprev
	)

spec_curl_e()

subroutine spec_curl_e	(	real, dimension(lx1*ly1*lz1,3)	cb,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	rx,
		real, dimension(1)	ry,
		real, dimension(1)	rz,
		real, dimension(1)	sx,
		real, dimension(1)	sy,
		real, dimension(1)	sz,
		real, dimension(1)	tx,
		real, dimension(1)	ty,
		real, dimension(1)	tz
	)

specx()

subroutine specx	(	real, dimension(1)	b,
			nb,
		real, dimension(1)	a,
			na,
			ba,
			ab,
		real, dimension(1)	w
	)