| /phasta/phSolver/incompressible/ |
| H A D | getdiff.f | 129 subroutine getdiffsclr(shape, dwl, yl, diffus) argument
135 real*8 diffus(npro), rho(npro) local
140 diffus(:) = datmat(1,4,1)
142 diffus(:) = datmat(1,2,1)
143 call AddSAVar(yl, shape, diffus)
145 diffus(:) = datmat(1,2,1)
151 call AddEddyViscKE(yl, dwl, shape, rho, sigmaInv, diffus)
153 diffus = scdiff(isclr)
|
| H A D | e3.f | 193 & tauS(npro), diffus(npro), local
227 call getdiffsclr(shpfun,dwl,yl,diffus)
238 & diffus, srcRat)
245 & diffus, srcR, giju,
266 & diffus,
276 & diffus,
|
| H A D | e3q.f | 234 real*8 diffus(npro) local
265 call getdiffsclr(shape, dwl, yl, diffus)
270 qdi(:,1) = diffus * gradT(:,1)
271 qdi(:,2) = diffus * gradT(:,2)
272 qdi(:,3) = diffus * gradT(:,3)
|
| H A D | e3ql.f | 199 & diffus(npro),
229 call getdiffsclr(dwl,shape,yl, diffus)
233 qdi(:,1) = diffus * gradT(:,1)
234 qdi(:,2) = diffus * gradT(:,2)
235 qdi(:,3) = diffus * gradT(:,3)
|
| H A D | e3res.f | 272 & diffus, argument
283 real*8 diffus(npro) local
313 rGNa(:,1) = diffus * gradS(:,1) + uMod(:,1) * tmp
314 rGNa(:,2) = diffus * gradS(:,2) + uMod(:,2) * tmp
315 rGNa(:,3) = diffus * gradS(:,3) + uMod(:,3) * tmp
|
| H A D | e3lhs.f | 274 & diffus, argument
287 real*8 diffus(npro), cp, kptmp(npro),tauSo(npro) local
305 kptmp = lhsFct * WdetJ * diffus
|
| H A D | e3stab.f | 489 subroutine e3StabSclr (uMod, dxidx, tauT, diffus, srcR, giju, argument
496 & dxidx(npro,nsd,nsd), diffus(npro), local
548 2 + fff * diffus(:)** 2
|
| H A D | e3ivar.f | 321 & diffus, srcRat) argument
337 & dwl(npro,nshl), diffus(npro),
494 & diffus, u1, u2, u3,
|
| H A D | e3bvar.f | 812 real*8 diffus(npro), dwl(npro,nshl) local
814 call getdiffsclr(shape,dwl,yl,diffus)
941 flux = diffus * ( gradS(:,1) * bnorm(:,1)
|