| /phasta/phSolver/incompressible/ |
| H A D | e3ivar.f | 64 & u3(npro), divqi(npro,nflow-1+isurf),
169 divqi = zero
177 divqi(:,1) = divqi(:,1) + shg(:,n,1)*ql(:,n,1 )
181 divqi(:,2) = divqi(:,2) + shg(:,n,1)*ql(:,n,2 )
185 divqi(:,3) = divqi(:,3) + shg(:,n,1)*ql(:,n,3 )
196 divqi(:,idflow+1) = divqi(:,idflow+1)
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
248 & rLui, src, divqi)
[all …]
|
| H A D | e3res.f | 355 & rLui, src, divqi) argument
371 & divqi local
433 & - divqi(:,1)
438 & - divqi(:,2)
443 & - divqi(:,3)
|
| H A D | advLES.f | 28 & g3yi(npro,ndof), divqi(npro,3),
244 divqi = zero
250 divqi(:,1) = divqi(:,1) + shg(:,n,1)*ql(:,n,1 )
254 divqi(:,2) = divqi(:,2) + shg(:,n,1)*ql(:,n,2 )
258 divqi(:,3) = divqi(:,3) + shg(:,n,1)*ql(:,n,3 )
362 & - divqi(:,1)
367 & - divqi(:,2)
372 & - divqi(:,3)
|
| /phasta/phSolver/compressible/ |
| H A D | e3ivar.f | 10 & ql, divqi, sgn, tmp, argument
78 & u3(npro), divqi(npro,nflow),
361 divqi = zero
378 divqi(:,1) = divqi(:,1) + shg(:,n,1)*ql(:,n,1 )
382 divqi(:,2) = divqi(:,2) + shg(:,n,1)*ql(:,n,2 )
386 divqi(:,3) = divqi(:,3) + shg(:,n,1)*ql(:,n,3 )
390 divqi(:,4) = divqi(:,4) + shg(:,n,1)*ql(:,n,4 )
400 divqi(:,idflow+1) = divqi(:,idflow+1)
438 sforce(:,1) = -(1.0/weber(:)) * divqi(:,idflow+1) !x-direction
440 sforce(:,2) = -(1.0/weber(:)) * divqi(:,idflow+1) !y-direction
[all …]
|
| H A D | e3ls.f | 8 & divqi, shape, shg, argument
71 & divqi(npro,nflow-1), stiff(npro,3*nflow,3*nflow),
150 rLyi(:,2) = rLyi(:,2) - divqi(:,1)
151 rLyi(:,3) = rLyi(:,3) - divqi(:,2)
152 rLyi(:,4) = rLyi(:,4) - divqi(:,3)
153 rLyi(:,5) = rLyi(:,5) - divqi(:,4)
171 & tmp(:)*divqi(:,1)*divqi(:,1)
173 & tmp(:)*divqi(:,2)*divqi(:,2)
|
| H A D | e3.f | 65 & divqi(npro,nflow), tau(npro,5)
138 & ql, divqi, sgn,
208 & divqi, shape, shg,
|