| /phasta/phSolver/compressible/ |
| H A D | e3q.f | 50 & g3yti(npro)
199 g3yti = zero
212 g3yti(:) = g3yti(:) + shg(:,n,3) * ycl(:,n,6)
223 & + shape(:,i)*WdetJ*g3yti
|
| H A D | e3b.f | 440 & g3yti(npro), WdetJb(npro),
487 & g2yti, g3yti, WdetJb,
543 & + g3yti * g3yti)
547 u3 = mytmp * g3yti
584 & + bnorm(:,3) * g3yti(:)
|
| H A D | e3.f | 372 & g2yti(npro), g3yti(npro),
434 & g1yti, g2yti, g3yti,
447 & g1yti, g2yti, g3yti,
468 call e3convSclr (g1yti, g2yti, g3yti,
480 call e3viscSclr (g1yti, g2yti, g3yti,
507 call e3dcSclr(g1yti, g2yti, g3yti,
|
| H A D | e3source.f | 227 & g1yti, g2yti, g3yti,
264 & g3yti (npro), u1 (npro),
404 bf = saCb2*saSigmaInv*(g1yti**2+g2yti**2+g3yti**2)
482 & + g3yti(:) * g3yti(:) )
486 u3 = mytmp(:) * g3yti(:)
|
| H A D | e3dc.f | 469 subroutine e3dcSclr ( g1yti, g2yti, g3yti, argument
505 & g3yti(npro), A0t(npro),
533 A0gyit( :,3) = A0t(:)*g3yti(:)
557 yiA0DCyjt(:,3) = A0DCt(:)*g3yti(:)**2
561 yiA0DCyjt(:,5) = A0DCt(:)*g1yti(:)*g3yti(:)
563 yiA0DCyjt(:,6) = A0DCt(:)*g2yti(:)*g3yti(:)
|
| H A D | e3conv.f | 356 subroutine e3convSclr (g1yti, g2yti, g3yti, argument
401 & g3yti(npro), Sclr(npro),
427 & + ( u3) * g3yti(:)
446 & + A3t(:) * g3yti(:)
|
| H A D | e3ivar.f | 495 & g1yti, g2yti, g3yti, argument
575 & g2yti(npro), g3yti(npro)
702 g3yti = zero
712 g3yti(:) = g3yti(:) + shg(:,n,3) * ycl(:,n,id)
|
| H A D | e3visc.f | 361 subroutine e3viscSclr (g1yti, g2yti, g3yti, argument
395 & g3yti(npro), rmu(npro),
438 rmti(:,3) = stifft(:,3,3) * g3yti(:)
|
| H A D | e3bvar.f | 379 & g1yti, g2yti, g3yti, WdetJb, argument
419 & g3yti(npro),
600 g3yti(:) = dxidxb(:,1,3) * gl1yti(:) +
|
| /phasta/phSolver/incompressible/ |
| H A D | e3q.f | 47 & g3yti(npro)
157 g3yti = zero
170 g3yti(:) = g3yti(:) + shg(:,n,3) * yl(:,n,6)
181 & + shape(:,i)*WdetJ*g3yti
|