Searched refs:srcJac (Results 1 – 4 of 4) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | elm3keps.f | 112 & srcRat1,src1, srcJac) argument
124 & src(npro,2), srcJac(npro,4), local
361 srcJac(e,1) = -(pk_k) ! jacobian for k PDE alone
362 srcJac(e,3) = -(pk_eps-rho(e)) ! d(Fsrck)/d(epsilon)
363 srcJac(e,2) = -(
370 srcJac(e,4) = -(
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 )
395 tmp1 = min( srcJac(e,1) * srcJac(e,4),
396 & (srcJac(e,1)-srcRat(e,1)) *
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | e3source.f | 494 & srcRat, srcR, srcJac)
495 if(isclr.eq.1) srcL = srcJac(:,1)
496 if(isclr.eq.2) srcL = srcJac(:,4)
|
| /phasta/phSolver/incompressible/e3source/ |
| H A D | e3source.fRHSonly | 456 & srcRat, srcR, srcJac)
457 if(isclr.eq.1) srcL = srcJac(:,1)
458 if(isclr.eq.2) srcL = srcJac(:,4)
|
| H A D | e3source.fimplicit | 470 & srcRat, srcR, srcJac)
471 if(isclr.eq.1) srcL = srcJac(:,1)
472 if(isclr.eq.2) srcL = srcJac(:,4)
|