induct.f File Reference

Go to the source code of this file.

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

Definition at line 1325 of file induct.f.

References add3(), grad_rst(), intp_rstd(), set_dealias_rx(), and sub3().

Here is the call graph for this function:

Here is the caller graph for this function:

cfl_check()

subroutine cfl_check

Definition at line 1523 of file induct.f.

References compute_cfl(), opcopy(), and phys_to_elsasser().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 917 of file induct.f.

References getdr(), and glmax().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 221 of file induct.f.

References bcdirvc(), extrapp(), opadd2(), opgradt(), ophx(), and opsub2().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 251 of file induct.f.

References bcdirvc(), bcneutr(), extrapp(), opadd2(), opgradt(), ophx(), and opsub2().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 485 of file induct.f.

References col2(), dssum(), dudxyz(), and sub3().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1266 of file induct.f.

References add2s2(), cdabdtp(), cmult(), glsc2(), gop(), and vlsc2().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 796 of file induct.f.

elsasser_to_phys2()

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

Definition at line 837 of file induct.f.

elsasserh()

subroutine elsasserh

(

igeom

)

Definition at line 851 of file induct.f.

References cresvib(), cresvibp(), incomprn(), opadd2(), ophinv(), q_filter(), and sethlm().

Here is the call graph for this function:

Here is the caller graph for this function:

extrapp()

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

Definition at line 369 of file induct.f.

References copy(), and exitt().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1221 of file induct.f.

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

Here is the call graph for this function:

Here is the caller graph for this function:

getdr()

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

Definition at line 1008 of file induct.f.

References invcol1().

Here is the call graph for this function:

Here is the caller graph for this function:

incomprn()

subroutine incomprn	(		ux,
			uy,
			uz,
			up
	)

Definition at line 281 of file induct.f.

References add2(), add2col2(), chkptol(), cmult(), copy(), dnekclock(), esolver(), gensolnp(), invers2(), opadd2cm(), opbinv(), opdiv(), opgradt(), ortho(), rzero(), and setrhsp().

Here is the call graph for this function:

Here is the caller graph for this function:

induct()

subroutine induct

(

igeom

)

Definition at line 11 of file induct.f.

References elsasserh(), lagbfield(), lagvel(), makebsource_mhd(), and vol_flow().

Here is the call graph for this function:

Here is the caller graph for this function:

lagbfield()

subroutine lagbfield

Definition at line 54 of file induct.f.

References opcopy().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 446 of file induct.f.

References curl().

Here is the call graph for this function:

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
	)

Definition at line 538 of file induct.f.

References lorentz_force_e().

Here is the call graph for this function:

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
	)

Definition at line 570 of file induct.f.

References scale(), setmap(), setproj(), spec_curl_e(), and specmp().

Here is the call graph for this function:

Here is the caller graph for this function:

makebdfb()

subroutine makebdfb

Definition at line 178 of file induct.f.

References cmult2(), opadd2(), opadd2col(), and opcolv3c().

Here is the call graph for this function:

Here is the caller graph for this function:

makebsource_mhd()

subroutine makebsource_mhd

Definition at line 73 of file induct.f.

References advab_elsasser_fast(), dnekclock(), exitt(), makeabf(), makebdf(), makebdfb(), makeuf(), makeufb(), makeuq(), and makextb().

Here is the call graph for this function:

Here is the caller graph for this function:

makeufb()

subroutine makeufb

Definition at line 122 of file induct.f.

References nekuf(), and opcolv2().

Here is the call graph for this function:

Here is the caller graph for this function:

makextb()

subroutine makextb

Definition at line 139 of file induct.f.

References add2s1(), add3s2(), and copy().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1022 of file induct.f.

References hmhzsf(), and hsolve().

Here is the call graph for this function:

Here is the caller graph for this function:

opnorm()

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

Definition at line 418 of file induct.f.

References glsum(), unorm(), and vlsc3().

Here is the call graph for this function:

Here is the caller graph for this function:

opzero()

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

Definition at line 405 of file induct.f.

References rzero().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 769 of file induct.f.

Here is the caller graph for this function:

phys_to_elsasser2()

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

Definition at line 823 of file induct.f.

set_ifbcor()

subroutine set_ifbcor

Definition at line 1091 of file induct.f.

References gllog().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1151 of file induct.f.

References add2s2(), cdabdtp(), glsc3(), gop(), rzero(), sub2(), updrhse(), and vlsc2().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 686 of file induct.f.

References local_grad3().

Here is the call graph for this function:

Here is the caller graph for this function:

specx()

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

Definition at line 754 of file induct.f.