| /phasta/phSolver/incompressible/ |
| H A D | e3stab.f | 489 subroutine e3StabSclr (uMod, dxidx, tauT, diffus, srcR, giju, argument
495 real*8 rho(npro), uMod(npro,nsd), local
539 3 + uMod(:,1) * ( gijd(:,1) * uMod(:,1)
540 4 + gijd(:,4) * uMod(:,2)
541 5 + gijd(:,6) * uMod(:,3) )
542 6 + uMod(:,2) * ( gijd(:,4) * uMod(:,1)
543 7 + gijd(:,2) * uMod(:,2)
544 8 + gijd(:,5) * uMod(:,3) )
545 9 + uMod(:,3) * ( gijd(:,6) * uMod(:,1)
546 a + gijd(:,5) * uMod(:,2)
[all …]
|
| H A D | e3source.f | 214 & srcR, srcL, uMod, argument
248 & uMod(npro,nsd) local
446 uMod(:,1) = u1(:) - tmp * gradS(:,1)
447 uMod(:,2) = u2(:) - tmp * gradS(:,2)
448 uMod(:,3) = u3(:) - tmp * gradS(:,3)
506 uMod(:,1) = u1(:) - zero
507 uMod(:,2) = u2(:) - zero
508 uMod(:,3) = u3(:) - zero
573 uMod(:,1) = mytmp * gradS(:,1) ! These are for the LHS
574 uMod(:,2) = mytmp * gradS(:,2)
[all …]
|
| H A D | e3lhs.f | 270 subroutine e3LHSSclr ( uMod, giju, dcFct, argument
280 real*8 uMod(npro,nsd), local
312 t1(:,1) = WdetJ * ( uMod(:,1) * shg(:,b,1)
313 & + uMod(:,2) * shg(:,b,2)
314 & + uMod(:,3) * shg(:,b,3) )
333 & * ( uMod(:,1) * shg(:,b,1)
334 & + uMod(:,2) * shg(:,b,2)
335 & + uMod(:,3) * shg(:,b,3) )
337 t1(:,1) = kptmp * shg(:,b,1) + uMod(:,1) * tmp
338 t1(:,2) = kptmp * shg(:,b,2) + uMod(:,2) * tmp
[all …]
|
| H A D | e3res.f | 268 subroutine e3ResSclr ( uMod, gGradS, argument
277 real*8 uMod(npro,nsd), gGradS(npro, nsd), local
302 rNa = rcp*(tmps*Sdot + uMod(:,1) * gradS(:,1)
303 & + uMod(:,2) * gradS(:,2)
304 & + uMod(:,3) * gradS(:,3) )
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 | e3.f | 204 real*8 uMod(npro,nsd), srcRat(npro), xmudmi(npro,ngauss) local
237 & SrcL, uMod, dwl,
244 call e3StabSclr (uMod, dxidx, tauS,
262 call e3ResSclr ( uMod, gGradS,
272 call e3LHSSclr ( uMod, giju, dcFct,
|
| H A D | e3ivar.f | 320 & SrcL, uMod, dwl, argument
495 & xl, srcR, srcL, uMod,
|
| /phasta/phSolver/incompressible/e3source/ |
| H A D | e3source.fRHSonly | 214 & srcR, srcL, uMod,
248 & uMod(npro,nsd)
408 uMod(:,1) = u1(:) - tmp * gradS(:,1)
409 uMod(:,2) = u2(:) - tmp * gradS(:,2)
410 uMod(:,3) = u3(:) - tmp * gradS(:,3)
468 uMod(:,1) = u1(:) - zero
469 uMod(:,2) = u2(:) - zero
470 uMod(:,3) = u3(:) - zero
535 uMod(:,1) = mytmp * gradS(:,1) ! These are for the LHS
536 uMod(:,2) = mytmp * gradS(:,2)
[all …]
|
| H A D | e3source.fimplicit | 214 & srcR, srcL, uMod,
248 & uMod(npro,nsd)
422 uMod(:,1) = u1(:) - tmp * gradS(:,1)
423 uMod(:,2) = u2(:) - tmp * gradS(:,2)
424 uMod(:,3) = u3(:) - tmp * gradS(:,3)
482 uMod(:,1) = u1(:) - zero
483 uMod(:,2) = u2(:) - zero
484 uMod(:,3) = u3(:) - zero
549 uMod(:,1) = mytmp * gradS(:,1) ! These are for the LHS
550 uMod(:,2) = mytmp * gradS(:,2)
[all …]
|