Searched refs:sforce (Results 1 – 5 of 5) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | e3source.f | 3 & u3, pres, sforce,
32 & rLyi(npro,nflow), sforce(npro,3),
185 src(:,2) = src(:,2) + rho(:)*sforce(:,1)
186 src(:,3) = src(:,3) + rho(:)*sforce(:,2)
187 src(:,4) = src(:,4) + rho(:)*sforce(:,3)
188 src(:,5) = src(:,5) + (u1*sforce(:,1)+u2*sforce(:,2)
189 & + u3*sforce(:,3))*rho(:)
|
| H A D | e3ivar.f | 13 & xmudmi, sforce, cv) argument
88 & sforce(npro,3), weber(npro)
409 sforce=zero
438 sforce(:,1) = -(1.0/weber(:)) * divqi(:,idflow+1) !x-direction
440 sforce(:,2) = -(1.0/weber(:)) * divqi(:,idflow+1) !y-direction
442 sforce(:,3) = -(1.0/weber(:)) * divqi(:,idflow+1) !z-direction
|
| H A D | e3.f | 89 & sforce(npro,3), compK(npro,10)
142 & xmudmi, sforce, cv)
191 & u3, pres, sforce,
|
| /phasta/phSolver/incompressible/ |
| H A D | e3ivar.f | 74 & sforce(npro,3), weber(npro),
205 sforce=zero
233 sforce(:,1) = -(1.0/weber(:)) * divqi(:,idflow+1) !x-direction
235 sforce(:,2) = -(1.0/weber(:)) * divqi(:,idflow+1) !y-direction
237 sforce(:,3) = -(1.0/weber(:)) * divqi(:,idflow+1) !z-direction
253 src(:,1) = src(:,1) + sforce(:,1)
254 src(:,2) = src(:,2) + sforce(:,2)
255 src(:,3) = src(:,3) + sforce(:,3)
|
| H A D | forces.f | 90 call sforce()
174 subroutine sforce() subroutine
|