plan4.f File Reference

Functions/Subroutines
subroutine	plan4 (igeom)
subroutine	crespsp (respr)
subroutine	cresvsp (resv1, resv2, resv3, h1, h2)
subroutine	cresvsp_weak (resv1, resv2, resv3, h1, h2)
subroutine	op_curl (w1, w2, w3, u1, u2, u3, ifavg, work1, work2)
subroutine	opadd2cm (a1, a2, a3, b1, b2, b3, c)
subroutine	split_vis
subroutine	redo_split_vis
subroutine	col_mu_sij (w1, w2, w3, ta1, ta2, ta3, sij, nij)
subroutine	sumab (v, vv, vvlag, ntot, ab_, nab_)
subroutine	userqtl_scig
subroutine	qthermal
subroutine	printdiverr
subroutine	bcdirpr (S)

Function/Subroutine Documentation

bcdirpr()

subroutine bcdirpr

(

dimension(lx1,ly1,lz1,lelt)

S

)

col_mu_sij()

subroutine col_mu_sij	(	real, dimension (lr,1)	w1,
		real, dimension (lr,1)	w2,
		real, dimension (lr,1)	w3,
		real, dimension(lr,1)	ta1,
		real, dimension(lr,1)	ta2,
		real, dimension(lr,1)	ta3,
		real, dimension(lr,nij,1)	sij,
			nij
	)

crespsp()

subroutine crespsp

(

real, dimension (lx1*ly1*lz1,lelv)

respr

)

cresvsp()

subroutine cresvsp	(	real, dimension(lx1,ly1,lz1,lelv)	resv1,
		real, dimension(lx1,ly1,lz1,lelv)	resv2,
		real, dimension(lx1,ly1,lz1,lelv)	resv3,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2
	)

cresvsp_weak()

subroutine cresvsp_weak	(	real, dimension(lx1,ly1,lz1,lelv)	resv1,
		real, dimension(lx1,ly1,lz1,lelv)	resv2,
		real, dimension(lx1,ly1,lz1,lelv)	resv3,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2
	)

op_curl()

subroutine op_curl	(	real, dimension(1)	w1,
		real, dimension(1)	w2,
		real, dimension(1)	w3,
		real, dimension(1)	u1,
		real, dimension(1)	u2,
		real, dimension(1)	u3,
		logical	ifavg,
		real, dimension(1)	work1,
		real, dimension(1)	work2
	)

opadd2cm()

subroutine opadd2cm	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real	c
	)

plan4()

subroutine plan4

(

igeom

)

printdiverr()

subroutine printdiverr

qthermal()

subroutine qthermal

redo_split_vis()

subroutine redo_split_vis

split_vis()

subroutine split_vis

sumab()

subroutine sumab	(		v,
			vv,
		real, dimension(lx1*ly1*lz1*lelv,*)	vvlag,
			ntot,
		real, dimension(*)	ab_,
			nab_
	)

userqtl_scig()

subroutine userqtl_scig