| /phasta/phSolver/compressible/ |
| H A D | e3q.f | 49 dimension g1yti(npro), g2yti(npro),
198 g2yti = zero
211 g2yti(:) = g2yti(:) + shg(:,n,2) * ycl(:,n,6)
221 & + shape(:,i)*WdetJ*g2yti
|
| H A D | e3b.f | 439 & g1yti(npro), g2yti(npro),
487 & g2yti, g3yti, WdetJb,
542 & + g2yti * g2yti
546 u2 = mytmp * g2yti
583 & + bnorm(:,2) * g2yti(:)
|
| 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,
263 & g1yti (npro), g2yti (npro),
404 bf = saCb2*saSigmaInv*(g1yti**2+g2yti**2+g3yti**2)
481 & + g2yti(:) * g2yti(:)
485 u2 = mytmp(:) * g2yti(:)
|
| H A D | e3dc.f | 469 subroutine e3dcSclr ( g1yti, g2yti, g3yti, argument
504 dimension g1yti(npro), g2yti(npro),
531 A0gyit( :,2) = A0t(:)*g2yti(:)
555 yiA0DCyjt(:,2) = A0DCt(:)*g2yti(:)**2
559 yiA0DCyjt(:,4) = A0DCt(:)*g1yti(:)*g2yti(:)
563 yiA0DCyjt(:,6) = A0DCt(:)*g2yti(:)*g3yti(:)
|
| H A D | e3conv.f | 356 subroutine e3convSclr (g1yti, g2yti, g3yti, argument
400 dimension g1yti(npro), g2yti(npro),
426 & + ( u2) * g2yti(:)
445 & + A2t(:) * g2yti(:)
|
| H A D | e3ivar.f | 495 & g1yti, g2yti, g3yti, argument
575 & g2yti(npro), g3yti(npro)
701 g2yti = zero
711 g2yti(:) = g2yti(:) + shg(:,n,2) * ycl(:,n,id)
|
| H A D | e3visc.f | 361 subroutine e3viscSclr (g1yti, g2yti, g3yti, argument
394 dimension g1yti(npro), g2yti(npro),
437 rmti(:,2) = stifft(:,2,2) * g2yti(:)
|
| H A D | e3bvar.f | 379 & g1yti, g2yti, g3yti, WdetJb, argument
418 & g1yti(npro), g2yti(npro),
597 g2yti(:) = dxidxb(:,1,2) * gl1yti(:) +
|
| /phasta/phSolver/incompressible/ |
| H A D | e3q.f | 46 dimension g1yti(npro), g2yti(npro),
156 g2yti = zero
169 g2yti(:) = g2yti(:) + shg(:,n,2) * yl(:,n,6)
179 & + shape(:,i)*WdetJ*g2yti
|