| /phasta/phSolver/compressible/ |
| H A D | e3q.f | 49 dimension g1yti(npro), g2yti(npro),
197 g1yti = zero
210 g1yti(:) = g1yti(:) + shg(:,n,1) * ycl(:,n,6)
219 & + shape(:,i)*WdetJ*g1yti
|
| H A D | e3b.f | 439 & g1yti(npro), g2yti(npro),
486 & u2, u3, g1yti,
541 mytmp = srcp / sqrt ( g1yti * g1yti
545 u1 = mytmp * g1yti
582 Sclrn = bnorm(:,1) * g1yti(:)
|
| H A D | e3.f | 371 & g1yti(npro), acti(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,
263 & g1yti (npro), g2yti (npro),
404 bf = saCb2*saSigmaInv*(g1yti**2+g2yti**2+g3yti**2)
480 mytmp = srcp(:) / sqrt( g1yti(:) * g1yti(:)
484 u1 = mytmp(:) * g1yti(:)
|
| H A D | e3dc.f | 469 subroutine e3dcSclr ( g1yti, g2yti, g3yti, argument
504 dimension g1yti(npro), g2yti(npro),
529 A0gyit( :,1) = A0t(:)*g1yti(:)
553 yiA0DCyjt(:,1) = A0DCt(:)*g1yti(:)**2
559 yiA0DCyjt(:,4) = A0DCt(:)*g1yti(:)*g2yti(:)
561 yiA0DCyjt(:,5) = A0DCt(:)*g1yti(:)*g3yti(:)
|
| H A D | e3conv.f | 356 subroutine e3convSclr (g1yti, g2yti, g3yti, argument
400 dimension g1yti(npro), g2yti(npro),
425 rti(:, 4) = rti(:,4) + ( u1) * g1yti(:)
444 & + A1t(:) * g1yti(:)
|
| H A D | e3ivar.f | 495 & g1yti, g2yti, g3yti, argument
574 & g1yti(npro),
700 g1yti = zero
710 g1yti(:) = g1yti(:) + shg(:,n,1) * ycl(:,n,id)
|
| H A D | e3visc.f | 361 subroutine e3viscSclr (g1yti, g2yti, g3yti, argument
394 dimension g1yti(npro), g2yti(npro),
436 rmti(:,1) = stifft(:,1,1) * g1yti(:)
|
| H A D | e3bvar.f | 379 & g1yti, g2yti, g3yti, WdetJb, argument
418 & g1yti(npro), g2yti(npro),
594 g1yti(:) = dxidxb(:,1,1) * gl1yti(:) +
|
| /phasta/phSolver/incompressible/ |
| H A D | e3q.f | 46 dimension g1yti(npro), g2yti(npro),
155 g1yti = zero
168 g1yti(:) = g1yti(:) + shg(:,n,1) * yl(:,n,6)
177 & + shape(:,i)*WdetJ*g1yti
|