Home
last modified time | relevance | path

Searched refs:xmudmi (Results 1 – 23 of 23) sorted by relevance

/phasta/phSolver/common/
H A Dscatnu.f1 subroutine scatnu (ien, strl, xmudmi, xnut, shp) argument
6 & xmudmi(npro,ngauss), shp(nshl,ngauss)
9 xmudmi=zero
15 xmudmi(:,int) = xmudmi(:,int) + xnut(ien(:,in)) * strl(:,int)
23 xmudmi=min(xmudmi,1000.0*rmu) !don't let it get larger than 1000 mu
24 xmudmi=max(xmudmi, zero) ! don't let (xmudmi) < 0
H A Daveprep.f75 subroutine getnu (ien, strl, xmudmi, cdelsq, lfathe) argument
80 & xmudmi(npro,ngauss), cdelsq(nlist),
86 xmudmi(iel,intp) = cdelsq( lfathe(iel,intp) )*
100 xmudmi(:,int) =
101 & min(xmudmi(:,int),1000.0*rmu) !don't let it get larger than 1000 mu
102 xmudmi(:,int) =
103 & max(xmudmi(:,int), -rmu) ! don't let (xmudmi + mu) < 0
H A Dbardmc.f1060 subroutine disPtion (y, x, ien, shgl, shp, eps, xmudmi) argument
1066 dimension xmudmi(npro,ngauss), y(nshg,ndof),
1207 epsli(:,1) = -xmudmi(:,intp)*strnrm(:,intp)
/phasta/phSolver/compressible/
H A Dgetdiff.f3 & xmudmi, xl) argument
45 & xmudmi(npro,ngauss), xl(npro,nenl,nsd),
178 xmut = xmudmi(:,intp)
257 call EviscDES (xl,xmut,xmudmi)
364 subroutine EviscDES(xl,xmut,xmudmi) argument
367 real*8 xmut(npro),xl(npro,nenl,nsd),xmudmi(npro,ngauss) local
376 xmut(i)=xmudmi(i,intp)
379 xmut(i)=xi*xmut(i)+(one-xi)*xmudmi(1,intp)
H A Dasiq.f2 & shgl, ien, xmudmi, argument
36 & xmudmi(npro,ngauss)
60 & xmudmi, sgn )
H A Dasiflx.f1 subroutine AsIFlx (y, ac, x, xmudmi, shp, argument
28 dimension xmudmi(npro,ngauss)
65 & xmudmi, BDiagl, ql, sgn, rlsl, EGmassd)
H A Dasires.f1 subroutine AsIRes (y, yc, x, xmudmi, argument
27 dimension xmudmi(npro,ngauss)
80 & xmudmi, BDiagl, ql, sgn, rlsl, EGmassd,
H A Dasimfg.f1 subroutine AsIMFG (y, ac, x, xmudmi, shp, argument
34 dimension xmudmi(npro,ngauss)
78 & shgl, xl, rl, rml, xmudmi,
H A Dasigmr.f1 subroutine AsIGMR (y, ac, x, xmudmi, argument
35 dimension xmudmi(npro,ngauss)
76 & shgl, xl, rl, rml, xmudmi,
H A De3ql.f2 & xl, ql, xmudmi, argument
28 & ql(npro,nshl,idflx), xmudmi(npro,ngauss)
89 & xmudmi, xl)
H A De3q.f3 & xmudmi, sgn) argument
29 & xmudmi(npro,ngauss)
94 & xmudmi, xl)
H A De3.f2 & shgl, xl, rl, rml, xmudmi, argument
56 & rml(npro,nshl,nflow), xmudmi(npro,ngauss),
101 call e3ql (ycl, shp, shgl, xl, ql, xmudmi, sgn)
142 & xmudmi, sforce, cv)
H A De3ivar.f13 & xmudmi, sforce, cv) argument
86 & xmudmi(npro,ngauss)
231 & xmudmi, xl)
/phasta/phSolver/incompressible/
H A Dasigmr.f1 subroutine AsIGMR (y, ac, x, xmudmi, argument
43 dimension xmudmi(npro,ngauss)
88 & ql, xKebe, xGoC, xmudmi,
127 & res, qres, xSebe, xmudmi ) argument
152 real*8 xSebe(npro,nshl,nshl), xmudmi(npro,ngauss) local
183 & sgn, xmudmi)
H A De3.f3 & xKebe, xGoC, xmudmi, sgn, argument
58 & xmudmi(npro,ngauss), sgn(npro,nshl),
76 & xl, ql, xmudmi,
94 call getdiff(dwl, yl, shpfun, xmudmi, xl, rmu, rho)
166 & sgn, xmudmi) argument
204 real*8 uMod(npro,nsd), srcRat(npro), xmudmi(npro,ngauss) local
232 & shdrv, xl, xmudmi,
H A Dgetdiff.f1 subroutine getDiff( dwl,yl, shape, xmudmi, xl, rmu, rho) argument
9 real*8 yl(npro,nshl,ndof), rmu(npro), xmudmi(npro,ngauss),
86 rmu = rmu + xmudmi(:,intp)
97 call EviscDESIC (xl,rmu,xmudmi)
104 subroutine EviscDESIC(xl,xmut,xmudmi) argument
107 real*8 xmut(npro),xl(npro,nenl,nsd),xmudmi(npro,ngauss) local
116 xmut(i)=xmudmi(i,intp)
119 xmut(i)=xi*xmut(i)+(one-xi)*(xmudmi(1,intp)+datmat(1,2,2))
H A Dasiq.f2 & shgl, ien, xmudmi, argument
34 & xmudmi(npro,ngauss)
66 & xmudmi, sgn )
H A De3q.f3 & xmudmi, sgn ) argument
28 & xmudmi(npro,ngauss)
87 call getdiff(dwl, yl, shape, xmudmi, xl, rmu, tmp)
H A De3ql.f2 & xl, ql, xmudmi, argument
28 & ql(npro,nshl,idflx), xmudmi(npro,ngauss)
66 call getdiff(dwl, yl, shape, xmudmi, xl,rmu, tmp)
H A De3b.f79 real*8 xmudmi(npro,ngauss), dwl(npro,nshl) local
117 xmudmi=zero
121 call getdiff(dwl, yl, shape, xmudmi, xlb, rmu, rho)
H A De3ivar.f315 & shgl, xl, xmudmi, argument
347 real*8 uBar(npro,nsd), xmudmi(npro,ngauss) local
465 call getdiff(dwl, yl, shpfun, xmudmi, xl, rmu, rho)
H A DadvLES.f4 subroutine SUPGstress (y, ac, x, qres, ien, xmudmi, argument
37 & xmudmi(npro,ngauss), xmudmif(npro,ngauss),
67 & xl, ql, xmudmi,
/phasta/phSolver/
H A DCHANGES452 4) xmudml is now xmudmi (since it is at quadrature points not local nodes)