Lines Matching defs:e3sourceSclr
210 subroutine e3sourceSclr ( Sclr, Sdot, gradS, subroutine
239 real*8 Sclr(npro), Sdot(npro),
240 & gradS(npro,nsd), dwl(npro,nenl),
241 & shape_funct(npro,nshl), shg(npro,nshl,nsd),
242 & yl(npro,nshl,ndof), dxidx(npro,nsd,nsd),
243 & rmu(npro), u1(npro),
244 & u2(npro), u3(npro),
245 & xl(npro,nenl,nsd)
247 real*8 srcR(npro), srcL(npro),
248 & uMod(npro,nsd)
251 real*8 gradV(npro,nsd,nsd), absVort(npro),
252 & dwall(npro)
253 real*8 chi, chiP3, fv1, fv2, st, r,
254 & g, fw, s, viscInv, k2d2Inv,
255 & dP2Inv, sixth, tmp, tmp1, p, dp,
256 & fv1p, fv2p, stp, gp, fwp, rp,
257 & chiP2, mytmp(npro), sign_levelset(npro),
258 & sclr_ls(npro)
260 real*8 SclrNN,qfac,dx,dy,dz,dmax
261 real*8 rd,fd,dwallsqqfact,ep
264 real*8 Ry(npro), Rt(npro), RtP2(npro), f2(npro), f1(npro),
265 & kay(npro), epsilon(npro), fmu(npro), fmui(npro),
266 & srcjac(npro,4), srcRat(npro)
267 integer e,n