Searched refs:srcRat (Results 1 – 7 of 7) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | elm3keps.f | 123 real*8 srcRat(npro,2), local
355 srcRat(e,1) = -kInv*( pk - rho(e) * eps )
356 srcRat(e,2) = -epsInv*(
389 srcJac(e,1) = max( srcJac(e,1), srcRat(e,1), 0.d0 )
390 srcJac(e,4) = max( srcJac(e,4), srcRat(e,2), 0.d0 )
396 & (srcJac(e,1)-srcRat(e,1)) *
397 & (srcJac(e,4)-srcRat(e,2)) )
|
| /phasta/phSolver/incompressible/ |
| H A D | e3source.f | 215 & srcRat) argument
266 & srcjac(npro,4), srcRat(npro) local
424 srcRat(e)= prat - ep*fw * tmp1
433 srcR(e) = srcRat(e)*SclrNN
494 & srcRat, srcR, srcJac)
501 srcRat(:)=zero
|
| H A D | e3.f | 204 real*8 uMod(npro,nsd), srcRat(npro), xmudmi(npro,ngauss) local
238 & diffus, srcRat)
246 & srcRat)
|
| H A D | e3ivar.f | 321 & diffus, srcRat) argument
341 dimension tmp(npro), srcRat(npro)
496 & srcRat)
498 srcRat = zero
|
| H A D | e3stab.f | 490 & srcRat ) argument
503 & srcRat(npro) local
538 2 + srcRat ** 2
|
| /phasta/phSolver/incompressible/e3source/ |
| H A D | e3source.fRHSonly | 215 & srcRat)
262 & srcjac(npro,4), srcRat(npro)
386 srcRat(e)= prat - ep*fw * tmp1
395 srcR(e) = srcRat(e)*SclrNN
456 & srcRat, srcR, srcJac)
463 srcRat(:)=zero
|
| H A D | e3source.fimplicit | 215 & srcRat)
262 & srcjac(npro,4), srcRat(npro)
400 srcRat(e)= prat - ep*fw * tmp1
409 srcR(e) = srcRat(e)*SclrNN
470 & srcRat, srcR, srcJac)
477 srcRat(:)=zero
|