Searched refs:RhoAtIP (Results 1 – 2 of 2) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | ParStokes.F90 | 1271 RhoAtIP = SUM( Basis(1:n) * Nodalrho(1:n) )
1358 A(1,1) = A(1,1) + s * RhoAtIP * w1 * dBasisdx(q,1) * Basis(p)
1359 A(1,1) = A(1,1) + s * RhoAtIP * w2 * dBasisdx(q,2) * Basis(p)
1360 A(2,2) = A(2,2) + s * RhoAtIP * w1 * dBasisdx(q,1) * Basis(p)
1361 A(2,2) = A(2,2) + s * RhoAtIP * w2 * dBasisdx(q,2) * Basis(p)
1364 A(1,1) = A(1,1) + s * RhoAtIP * w3 * dBasisdx(q,3) * Basis(p)
1365 A(2,2) = A(2,2) + s * RhoAtIP * w3 * dBasisdx(q,3) * Basis(p)
1366 A(3,3) = A(3,3) + s * RhoAtIP * w1 * dBasisdx(q,1) * Basis(p)
1367 A(3,3) = A(3,3) + s * RhoAtIP * w2 * dBasisdx(q,2) * Basis(p)
1368 A(3,3) = A(3,3) + s * RhoAtIP * w3 * dBasisdx(q,3) * Basis(p)
[all …]
|
| H A D | ShearrateSolver.F90 | 211 u,v,w,ViscAtIp, RhoAtIP, mu, muder0 local
280 RhoAtIP = SUM( Nodalrho(1:n) * Basis(1:n) )
|