| /phasta/phSolver/compressible/ |
| H A D | e3visc.f | 3 & rmu, rlm, rlm2mu,
50 dimension rmu(npro), rlm(npro),
79 stiff(:, 2, 8) = rlm
82 stiff(:, 5, 8) = rlm * u1
86 stiff(:, 2,14) = rlm
89 stiff(:, 5,14) = rlm * u1
95 stiff(:, 8, 2) = rlm
96 stiff(:,10, 2) = rlm * u2
112 stiff(:, 8,14) = rlm
115 stiff(:,10,14) = rlm * u2
[all …]
|
| H A D | e3ql.f | 38 & rlm(npro), rlm2mu(npro),
88 & rmu, rlm, rlm2mu, con, shape,
96 & + rlm * g2yi(:,3)
97 & + rlm * g3yi(:,4)
104 & + rmu * u2 * g2yi(:,2) + rlm * u1 * g2yi(:,3)
105 & + rmu * u3 * g3yi(:,2) + rlm * u1 * g3yi(:,4)
113 qdi(:,6) = rlm * g1yi(:,2)
115 & + rlm * g3yi(:,4)
118 qdi(:,8) = rlm * u2 * g1yi(:,2) + rmu * u1 * g1yi(:,3)
121 & + rmu * u3 * g3yi(:,3) + rlm * u2 * g3yi(:,4)
[all …]
|
| H A D | e3q.f | 39 & rlm(npro), rlm2mu(npro),
93 & rmu, rlm, rlm2mu, con, shape,
105 & + rlm * g2yi(:,3)
106 & + rlm * g3yi(:,4)
113 & + rmu * u2 * g2yi(:,2) + rlm * u1 * g2yi(:,3)
114 & + rmu * u3 * g3yi(:,2) + rlm * u1 * g3yi(:,4)
122 qdi(:,6) = rlm * g1yi(:,2)
124 & + rlm * g3yi(:,4)
127 qdi(:,8) = rlm * u2 * g1yi(:,2) + rmu * u1 * g1yi(:,3)
130 & + rmu * u3 * g3yi(:,3) + rlm * u2 * g3yi(:,4)
[all …]
|
| H A D | getdiff.f | 2 & rmu, rlm, rlm2mu, con, shp, argument
42 & rmu(npro), rlm(npro),
164 rlm = -pt66 * rmu
166 rlm = (datmat(1,3,1) - pt66) * rmu
261 rlm = rlm - pt66*xmuT
263 rlm2mu = rlm + two * rmu
273 subroutine getDiffSclr (T, cp, rmu, rlm, argument
306 & rmu(npro), rlm(npro),
340 rlm = -pt66 * rmu
344 rlm = (datmat(1,3,1) - pt66) * rmu
[all …]
|
| H A D | e3b.f | 84 dimension rmu(npro), rlm(npro),
191 & rmu, rlm, rlm2mu, con, shape,
198 tau1n = bnorm(:,1) * (rlm2mu* g1yi(:,2) + rlm *g2yi(:,3)
199 & + rlm *g3yi(:,4))
203 & + bnorm(:,2) * (rlm * g1yi(:,2) + rlm2mu*g2yi(:,3)
204 & + rlm *g3yi(:,4))
208 & + bnorm(:,3) * (rlm * g1yi(:,2) + rlm *g2yi(:,3)
449 dimension rmu(npro), rlm(npro),
574 & rlm, rlm2mu, con, rho, Sclr)
|
| H A D | e3.f | 54 & xl(npro,nenl,nsd), rlm(npro),
140 & rmu, rlm, rlm2mu,
179 & rmu, rlm, rlm2mu,
|
| H A D | e3ivar.f | 11 & rmu, rlm, rlm2mu, argument
80 & rmu(npro), rlm(npro),
230 & rmu, rlm, rlm2mu, con, shape,
|
| /phasta/phSolver/incompressible/ |
| H A D | getfld.f | 1 subroutine getFld (T, cp, rmu, rlm, rlm2mu, argument
34 & rmu(npro), rlm(npro),
57 rlm = -pt66 * rmu
61 rlm = (datmat(1,3,1) - pt66) * rmu
68 rlm2mu = rlm + two * rmu
|