KTH framework for Nek5000 toolboxes; testing version
0.0.1
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | plan1 (igeom) |
subroutine | crespuz (respr, g1, g2, g3, h1, h2, h2inv, intype) |
subroutine | cresvuz (resv1, resv2, resv3) |
subroutine | makeg (out1, out2, out3, h1, h2, intype) |
subroutine | ctolspl (tolspl, respr) |
subroutine | ortho (respr) |
subroutine | cdabdtp (ap, wp, h1, h2, h2inv, intype) |
subroutine | opgrad (out1, out2, out3, inp) |
subroutine | cdtp (dtx, x, rm2, sm2, tm2, isd) |
subroutine | multd (dx, x, rm2, sm2, tm2, isd, iflg) |
subroutine | ophx (out1, out2, out3, inp1, inp2, inp3, h1, h2) |
subroutine | opbinv (out1, out2, out3, inp1, inp2, inp3, h2inv) |
subroutine | opbinv1 (out1, out2, out3, inp1, inp2, inp3, SCALE) |
subroutine | uzprec (rpcg, rcg, h1m1, h2m1, intype, wp) |
subroutine | eprec (z2, r2) |
subroutine | convprn (iconv, rbnorm, rrpt, res, z, tol) |
subroutine | convpr (res, tol, iconv, rbnorm) |
subroutine | chktcg2 (tol, res, iconv) |
subroutine | dudxyz (du, u, rm1, sm1, tm1, jm1, imsh, isd) |
subroutine | convopo (conv, fi) |
subroutine | conv2 (dtfi, fi) |
subroutine | cmask (cmask1, cmask2) |
subroutine | makef |
subroutine | makeuf |
subroutine | nekuf (f1, f2, f3) |
subroutine | advab |
subroutine | makebdf |
subroutine | makeabf |
subroutine | setab3 (ab0, ab1, ab2) |
subroutine | setabbd (ab, dtlag, nab, nbd) |
subroutine | setbd (bd, dtbd, nbd) |
subroutine | bdsys (a, b, dt, nbd, ldim) |
subroutine | tauinit (tau, ilag) |
subroutine | velinit (vel1, vel2, vel3, ilag) |
subroutine | velconv (vxn, vyn, vzn, tau) |
subroutine | frkconv (y, x, mask) |
subroutine | velchar (vel, vn, vlag, nbd, tau, dtbd) |
subroutine | lagvel |
subroutine | hypmsk3 (hv1msk, hv2msk, hv3msk) |
subroutine | setordbd |
subroutine | normsc (h1, semi, l2, linf, x, imesh) |
subroutine | normvc (h1, semi, l2, linf, x1, x2, x3) |
subroutine | genwp (wp, wm2, p) |
subroutine | convuz (ifstuz) |
subroutine | convsp (ifstsp) |
subroutine | antimsk (y, x, xmask, n) |
subroutine | opamask (vbdry1, vbdry2, vbdry3) |
subroutine | opmask (res1, res2, res3) |
subroutine | opadd2 (a1, a2, a3, b1, b2, b3) |
subroutine | opsub2 (a1, a2, a3, b1, b2, b3) |
subroutine | opsub3 (a1, a2, a3, b1, b2, b3, c1, c2, c3) |
subroutine | opcolv3 (a1, a2, a3, b1, b2, b3, c) |
subroutine | opcolv (a1, a2, a3, c) |
subroutine | opcol2 (a1, a2, a3, b1, b2, b3) |
subroutine | opchsgn (a, b, c) |
subroutine | opcopy (a1, a2, a3, b1, b2, b3) |
subroutine | rotate_cyc (r1, r2, r3, idir) |
subroutine | opdssum (a, b, c) |
subroutine | opdsop (a, b, c, op) |
subroutine | opicol2 (a1, a2, a3, b1, b2, b3) |
subroutine | oprzero (a, b, c) |
subroutine | oprone (a, b, c) |
subroutine | opcmult (a, b, c, const) |
subroutine | opcolv2c (a1, a2, a3, b1, b2, c) |
subroutine | opcolv2 (a1, a2, a3, b1, b2) |
subroutine | opadd2col (a1, a2, a3, b1, b2, b3, c) |
subroutine | opcolv3c (a1, a2, a3, b1, b2, b3, c, d) |
subroutine | uzawa (rcg, h1, h2, h2inv, intype, iter) |
subroutine | mapw (md, nd, m1, n1, mflg) |
subroutine | mapwp (md, nd, m1, n1, mflg) |
subroutine | specmp (b, nb, a, na, ba, ab, w) |
subroutine | setmap (n1, nd) |
subroutine | set_pnd (P, LkD, LkNt, N, D) |
subroutine | convop (conv, fi) |
subroutine | conv1d (dfi, fi) |
subroutine | conv1 (du, u) |
subroutine | conv1no (du, u) |
subroutine | conv1rk (du, dv, dw, u, v, w) |
subroutine | velconvv (vxn, vyn, vzn, tau) |
subroutine | frkconvv (du, dv, dw, u, v, w, mu) |
subroutine | conv1rk2 (du, dv, dw, u, v, w, cu, cv, cw, beta, wk) |
subroutine | frkconvv2 (du, dv, dw, u, v, w, cu, cv, cw, beta, mu, wk) |
subroutine | hypmsk3v (msk, mask) |
subroutine | ophyprk (vel1, vel2, vel3, ilag) |
subroutine | opdiv (outfld, inpx, inpy, inpz) |
subroutine | opgradt (outx, outy, outz, inpfld) |
subroutine | setproj (n1, nd) |
subroutine | set_pndoi (Pt, P, LkNt, N, D) |
subroutine | wgradm1 (ux, uy, uz, u, nel) |
subroutine | makevis |
subroutine | comp_siej (U1, U2, U3) |
subroutine | wlaplacian (out, a, diff, ifld) |
subroutine | explstrs |
subroutine | expl_strs (w1, w2, w3, u1, u2, u3) |
subroutine | expl_strs_e (w1, w2, w3, u1, u2, u3, e) |
subroutine | expl_strs_e_3d (w1, w2, w3, u1, u2, u3, e) |
subroutine | expl_strs_e_2d (w1, w2, u1, u2, e) |
subroutine | gradl_rst_t (u, ur, us, ut, md, if3d) |
subroutine | gradl_rst (ur, us, ut, u, md, if3d) |
subroutine | local_grad3_t (u, ur, us, ut, N, e, D, Dt, w) |
subroutine | local_grad2_t (u, ur, us, N, e, D, Dt, w) |
subroutine | get_dgll_ptr (ip, mx, md) |
subroutine | gen_dgll (dgl, dgt, mp, np, w) |
subroutine advab |
subroutine antimsk | ( | real, dimension(1) | y, |
real, dimension(1) | x, | ||
real, dimension(1) | xmask, | ||
n | |||
) |
subroutine bdsys | ( | real, dimension(ldim,9) | a, |
real, dimension(9) | b, | ||
real, dimension(9) | dt, | ||
nbd, | |||
ldim | |||
) |
subroutine chktcg2 | ( | tol, | |
real, dimension (lx2,ly2,lz2,lelv) | res, | ||
iconv | |||
) |
subroutine conv1rk2 | ( | real, dimension(lx1*ly1*lz1,1) | du, |
real, dimension(lx1*ly1*lz1,1) | dv, | ||
real, dimension(lx1*ly1*lz1,1) | dw, | ||
real, dimension (lx1,ly1,lz1,1) | u, | ||
real, dimension (lx1,ly1,lz1,1) | v, | ||
real, dimension (lx1,ly1,lz1,1) | w, | ||
real, dimension(lx1,ly1,lz1,1) | cu, | ||
real, dimension(lx1,ly1,lz1,1) | cv, | ||
real, dimension(lx1,ly1,lz1,1) | cw, | ||
beta, | |||
real, dimension(lx1,ly1,lz1,3) | wk | ||
) |
Definition at line 3138 of file navier1.f.
References conv1(), conv1d(), convect_cons(), convect_dg(), convect_new(), convopo(), dnekclock(), invcol2(), mfi(), and rzero().
subroutine convpr | ( | real, dimension (lx2,ly2,lz2,lelv) | res, |
tol, | |||
iconv, | |||
rbnorm | |||
) |
subroutine convprn | ( | iconv, | |
rbnorm, | |||
rrpt, | |||
real, dimension (1) | res, | ||
real, dimension (1) | z, | ||
tol | |||
) |
subroutine convuz | ( | logical | ifstuz | ) |
subroutine crespuz | ( | real, dimension (lx2,ly2,lz2,lelv) | respr, |
real, dimension (lx1,ly1,lz1,lelv) | g1, | ||
real, dimension (lx1,ly1,lz1,lelv) | g2, | ||
real, dimension (lx1,ly1,lz1,lelv) | g3, | ||
real, dimension (lx1,ly1,lz1,lelv) | h1, | ||
real, dimension (lx1,ly1,lz1,lelv) | h2, | ||
real, dimension (lx1,ly1,lz1,lelv) | h2inv, | ||
intype | |||
) |
subroutine ctolspl | ( | tolspl, | |
real, dimension (lx2,ly2,lz2,lelv) | respr | ||
) |
subroutine eprec | ( | real, dimension (lx2,ly2,lz2,lelv) | z2, |
real, dimension (lx2,ly2,lz2,lelv) | r2 | ||
) |
subroutine expl_strs | ( | real, dimension(1) | w1, |
real, dimension(1) | w2, | ||
real, dimension(1) | w3, | ||
real, dimension(1) | u1, | ||
real, dimension(1) | u2, | ||
real, dimension(1) | u3 | ||
) |
Definition at line 4426 of file navier1.f.
References expl_strs_e().
subroutine expl_strs_e | ( | real, dimension(1) | w1, |
real, dimension(1) | w2, | ||
real, dimension(1) | w3, | ||
real, dimension(1) | u1, | ||
real, dimension(1) | u2, | ||
real, dimension(1) | u3, | ||
integer | e | ||
) |
Definition at line 4446 of file navier1.f.
References expl_strs_e_2d(), and expl_strs_e_3d().
subroutine expl_strs_e_2d | ( | real, dimension(1) | w1, |
real, dimension(1) | w2, | ||
real, dimension(1) | u1, | ||
real, dimension(1) | u2, | ||
integer | e | ||
) |
Definition at line 4549 of file navier1.f.
References gradl_rst(), and gradl_rst_t().
subroutine expl_strs_e_3d | ( | real, dimension(1) | w1, |
real, dimension(1) | w2, | ||
real, dimension(1) | w3, | ||
real, dimension(1) | u1, | ||
real, dimension(1) | u2, | ||
real, dimension(1) | u3, | ||
integer | e | ||
) |
Definition at line 4470 of file navier1.f.
References gradl_rst(), and gradl_rst_t().
subroutine explstrs |
Definition at line 4399 of file navier1.f.
References expl_strs_e().
subroutine frkconvv | ( | real, dimension(1) | du, |
real, dimension(1) | dv, | ||
real, dimension(1) | dw, | ||
real, dimension (1) | u, | ||
real, dimension (1) | v, | ||
real, dimension (1) | w, | ||
integer, dimension(0:1) | mu | ||
) |
subroutine frkconvv2 | ( | real, dimension(1) | du, |
real, dimension(1) | dv, | ||
real, dimension(1) | dw, | ||
real, dimension (1) | u, | ||
real, dimension (1) | v, | ||
real, dimension (1) | w, | ||
real, dimension(1) | cu, | ||
real, dimension(1) | cv, | ||
real, dimension(1) | cw, | ||
beta, | |||
integer, dimension(0:1) | mu, | ||
real, dimension(lx1*ly1*lz1,3) | wk | ||
) |
Definition at line 3789 of file navier1.f.
References conv1rk2(), and opdssum().
subroutine gen_dgll | ( | real, dimension(mp,np) | dgl, |
real, dimension(np*mp) | dgt, | ||
mp, | |||
np, | |||
real, dimension(1) | w | ||
) |
Definition at line 4755 of file navier1.f.
References fd_weights_full(), lim_chk(), transpose(), and zwgll().
subroutine genwp | ( | real, dimension (lx2,ly2,lz2,lelv) | wp, |
real, dimension (lx2,ly2,lz2) | wm2, | ||
real, dimension (lx2,ly2,lz2,lelv) | p | ||
) |
subroutine get_dgll_ptr | ( | ip, | |
mx, | |||
md | |||
) |
Definition at line 4711 of file navier1.f.
References gen_dgll(), and lim_chk().
subroutine gradl_rst | ( | real, dimension(1) | ur, |
real, dimension(1) | us, | ||
real, dimension(1) | ut, | ||
real, dimension(1) | u, | ||
md, | |||
logical | if3d | ||
) |
Definition at line 4642 of file navier1.f.
References get_dgll_ptr(), local_grad2(), and local_grad3().
subroutine gradl_rst_t | ( | real, dimension(1) | u, |
real, dimension(1) | ur, | ||
real, dimension(1) | us, | ||
real, dimension(1) | ut, | ||
md, | |||
logical | if3d | ||
) |
Definition at line 4613 of file navier1.f.
References get_dgll_ptr(), local_grad2_t(), and local_grad3_t().
subroutine hypmsk3v | ( | integer, dimension(0:1) | msk, |
real, dimension(lxyz1,lelt) | mask | ||
) |
subroutine lagvel |
subroutine local_grad2_t | ( | real, dimension (0:n,0:n,1) | u, |
real, dimension(0:n,0:n) | ur, | ||
real, dimension(0:n,0:n) | us, | ||
N, | |||
integer | e, | ||
real, dimension (0:n,0:n) | D, | ||
real, dimension(0:n,0:n) | Dt, | ||
real, dimension (0:n,0:n) | w | ||
) |
subroutine local_grad3_t | ( | real, dimension (0:n,0:n,0:n,1) | u, |
real, dimension(0:n,0:n,0:n) | ur, | ||
real, dimension(0:n,0:n,0:n) | us, | ||
real, dimension(0:n,0:n,0:n) | ut, | ||
N, | |||
integer | e, | ||
real, dimension (0:n,0:n) | D, | ||
real, dimension(0:n,0:n) | Dt, | ||
real, dimension (0:n,0:n,0:n) | w | ||
) |
subroutine makeabf |
subroutine makebdf |
Definition at line 1548 of file navier1.f.
References cfill(), cmult2(), opadd2(), opadd2col(), and opcolv3c().
subroutine makef |
subroutine makeuf |
subroutine makevis |
subroutine nekuf | ( | real, dimension (lx1,ly1,lz1,lelv) | f1, |
real, dimension (lx1,ly1,lz1,lelv) | f2, | ||
real, dimension (lx1,ly1,lz1,lelv) | f3 | ||
) |
Definition at line 1482 of file navier1.f.
References dnekclock(), dnekclock_sync(), nekasgn(), and oprzero().
subroutine opadd2 | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | b1, | ||
real, dimension(1) | b2, | ||
real, dimension(1) | b3 | ||
) |
subroutine opadd2col | ( | 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, dimension(1) | c | ||
) |
subroutine opbinv | ( | real, dimension (1) | out1, |
real, dimension (1) | out2, | ||
real, dimension (1) | out3, | ||
real, dimension (1) | inp1, | ||
real, dimension (1) | inp2, | ||
real, dimension (1) | inp3, | ||
real, dimension (1) | h2inv | ||
) |
subroutine opbinv1 | ( | real, dimension (1) | out1, |
real, dimension (1) | out2, | ||
real, dimension (1) | out3, | ||
real, dimension (1) | inp1, | ||
real, dimension (1) | inp2, | ||
real, dimension (1) | inp3, | ||
SCALE | |||
) |
subroutine opchsgn | ( | real, dimension(1) | a, |
real, dimension(1) | b, | ||
real, dimension(1) | c | ||
) |
subroutine opcmult | ( | real, dimension(1) | a, |
real, dimension(1) | b, | ||
real, dimension(1) | c, | ||
const | |||
) |
subroutine opcol2 | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | b1, | ||
real, dimension(1) | b2, | ||
real, dimension(1) | b3 | ||
) |
subroutine opcolv | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | c | ||
) |
subroutine opcolv2 | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | b1, | ||
real, dimension(1) | b2 | ||
) |
subroutine opcolv2c | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | b1, | ||
real, dimension(1) | b2, | ||
c | |||
) |
subroutine opcolv3 | ( | 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, dimension (1) | c | ||
) |
subroutine opcolv3c | ( | 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, dimension (1) | c, | ||
d | |||
) |
subroutine opcopy | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | b1, | ||
real, dimension(1) | b2, | ||
real, dimension(1) | b3 | ||
) |
subroutine opdsop | ( | real, dimension(1) | a, |
real, dimension(1) | b, | ||
real, dimension(1) | c, | ||
character*3 | op | ||
) |
Definition at line 2602 of file navier1.f.
References rotate_cyc(), and vec_dsop().
subroutine opdssum | ( | real, dimension(1) | a, |
real, dimension(1) | b, | ||
real, dimension(1) | c | ||
) |
Definition at line 2581 of file navier1.f.
References rotate_cyc(), and vec_dssum().
subroutine ophx | ( | real, dimension (lx1,ly1,lz1,1) | out1, |
real, dimension (lx1,ly1,lz1,1) | out2, | ||
real, dimension (lx1,ly1,lz1,1) | out3, | ||
real, dimension (lx1,ly1,lz1,1) | inp1, | ||
real, dimension (lx1,ly1,lz1,1) | inp2, | ||
real, dimension (lx1,ly1,lz1,1) | inp3, | ||
real, dimension (lx1,ly1,lz1,1) | h1, | ||
real, dimension (lx1,ly1,lz1,1) | h2 | ||
) |
subroutine opicol2 | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | b1, | ||
real, dimension(1) | b2, | ||
real, dimension(1) | b3 | ||
) |
subroutine opmask | ( | real, dimension(1) | res1, |
real, dimension(1) | res2, | ||
real, dimension(1) | res3 | ||
) |
subroutine oprone | ( | real, dimension(1) | a, |
real, dimension(1) | b, | ||
real, dimension(1) | c | ||
) |
subroutine oprzero | ( | real, dimension(1) | a, |
real, dimension(1) | b, | ||
real, dimension(1) | c | ||
) |
subroutine opsub2 | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | b1, | ||
real, dimension(1) | b2, | ||
real, dimension(1) | b3 | ||
) |
subroutine opsub3 | ( | 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, dimension(1) | c1, | ||
real, dimension(1) | c2, | ||
real, dimension(1) | c3 | ||
) |
subroutine ortho | ( | real, dimension (lx2,ly2,lz2,lelv) | respr | ) |
subroutine plan1 | ( | igeom | ) |
subroutine set_pnd | ( | real, dimension(n,d) | P, |
real, dimension(0:n-1,d) | LkD, | ||
real, dimension(n,0:n-1) | LkNt, | ||
integer | N, | ||
integer | D | ||
) |
subroutine set_pndoi | ( | real, dimension(n,d) | Pt, |
real, dimension(d,n) | P, | ||
real, dimension(n,0:n-1) | LkNt, | ||
integer | N, | ||
integer | D | ||
) |
subroutine setabbd | ( | real, dimension(nab) | ab, |
real, dimension(nab) | dtlag, | ||
nab, | |||
nbd | |||
) |
subroutine setbd | ( | real, dimension(1) | bd, |
real, dimension(1) | dtbd, | ||
nbd | |||
) |
subroutine setmap | ( | n1, | |
nd | |||
) |
subroutine setordbd |
subroutine setproj | ( | n1, | |
nd | |||
) |
Definition at line 4116 of file navier1.f.
References exitt(), set_pnd(), set_pndoi(), and transpose().
subroutine specmp | ( | real, dimension(nb,nb,nb) | b, |
nb, | |||
real, dimension(na,na,na) | a, | ||
na, | |||
ba, | |||
ab, | |||
real, dimension(1) | w | ||
) |
subroutine tauinit | ( | tau, | |
ilag | |||
) |
subroutine velconvv | ( | real, dimension(1) | vxn, |
real, dimension(1) | vyn, | ||
real, dimension(1) | vzn, | ||
tau | |||
) |
subroutine wgradm1 | ( | real, dimension(lxyz,1) | ux, |
real, dimension(lxyz,1) | uy, | ||
real, dimension(lxyz,1) | uz, | ||
real, dimension(lxyz,1) | u, | ||
nel | |||
) |
Definition at line 4170 of file navier1.f.
References local_grad2(), local_grad3(), setaxdy(), and setaxw1().