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_pr (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	set_dealias_rx
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_pr()

subroutine ophinv_pr	(	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_dealias_rx()

subroutine set_dealias_rx

(

)

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
	)