Home
last modified time | relevance | path

Searched refs:gGradS (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/incompressible/
H A De3dc.f469 subroutine e3dcSclr ( gradS, giju, gGradS, argument
503 dimension gradS(npro,nsd), gGradS(npro,nsd),
511 gGradS(:,1) = GijU(:,1) * gradS(:,1)
514 gGradS(:,2) = GijU(:,4) * gradS(:,1)
517 gGradS(:,3) = GijU(:,6) * gradS(:,1)
521 dcFct(:) = gradS(:,1) * gGradS(:,1)
522 1 + gradS(:,2) * gGradS(:,2)
523 2 + gradS(:,3) * gGradS(:,3)
572 gGradS(:,1) = dcFct(:) * gGradS(:,1)
573 gGradS(:,2) = dcFct(:) * gGradS(:,2)
[all …]
H A De3res.f268 subroutine e3ResSclr ( uMod, gGradS, argument
277 real*8 uMod(npro,nsd), gGradS(npro, nsd), local
323 rGNa(:,1) = rGNa(:,1) + gGradS(:,1) ! gGradS is
324 rGNa(:,2) = rGNa(:,2) + gGradS(:,2) ! g^{ij}*Y_{j}*dcFct
325 rGNa(:,3) = rGNa(:,3) + gGradS(:,3) ! calculated in e3dc.f
H A De3.f195 & gGradS(npro,nsd), dcFct(npro), local
254 call e3dcSclr ( gradS, giju, gGradS,
262 call e3ResSclr ( uMod, gGradS,