| /phasta/phSolver/compressible/ |
| H A D | e3b.f | 65 & bnorm(npro,nsd),
131 & bnorm, pres, T,
153 un = bnorm(:,1) * u1 + bnorm(:,2) * u2 + bnorm(:,3) * u3
168 F2 = rou * u1 + bnorm(:,1) * p
169 F3 = rou * u2 + bnorm(:,2) * p
170 F4 = rou * u3 + bnorm(:,3) * p
198 tau1n = bnorm(:,1) * (rlm2mu* g1yi(:,2) + rlm *g2yi(:,3)
200 & + bnorm(:,2) * (rmu *(g2yi(:,2) + g1yi(:,3)))
201 & + bnorm(:,3) * (rmu *(g3yi(:,2) + g1yi(:,4)))
202 tau2n = bnorm(:,1) * (rmu *(g2yi(:,2) + g1yi(:,3)))
[all …]
|
| H A D | e3bvar.f | 3 & g3yi, WdetJb, bnorm, pres, T, argument
60 & WdetJb(npro), bnorm(npro,nsd),
176 bnorm(:,1) = temp1 * temp
177 bnorm(:,2) = temp2 * temp
178 bnorm(:,3) = temp3 * temp
380 & bnorm, T, rho, cp, rou, argument
420 & WdetJb(npro), bnorm(npro,nsd),
533 bnorm(:,1) = temp1 * temp
534 bnorm(:,2) = temp2 * temp
535 bnorm(:,3) = temp3 * temp
|
| /phasta/phSolver/incompressible/ |
| H A D | e3b.f | 63 & bnorm(npro,nsd)
129 & bnorm, pres,
157 & - ( tau1n(iel) - bnorm(iel,1)*pres(iel))
160 & - ( tau2n(iel) - bnorm(iel,2)*pres(iel))
163 & - ( tau3n(iel) - bnorm(iel,3)*pres(iel))
255 vn=dot_product(vdot(iel,:),bnorm(iel,:))
256 vdot(iel,:)=vn*bnorm(iel,:)
257 walln1=dot_product(rlkwall(iel,1,:),bnorm(iel,:))
258 walln2=dot_product(rlkwall(iel,2,:),bnorm(iel,:))
259 walln3=dot_product(rlkwall(iel,3,:),bnorm(iel,:))
[all …]
|
| H A D | e3bvar.f | 4 & WdetJb, bnorm, pres, argument
56 & WdetJb(npro), bnorm(npro,nsd),
228 bnorm(:,1) = temp1 * temp
229 bnorm(:,2) = temp2 * temp
230 bnorm(:,3) = temp3 * temp
342 unm = bnorm(:,1) * u1 +bnorm(:,2) * u2 +bnorm(:,3) * u3
349 tau1n = bnorm(:,1) * two * rmu * g1yi(:,2)
350 & + bnorm(:,2) * (rmu * (g2yi(:,2) + g1yi(:,3)))
351 & + bnorm(:,3) * (rmu * (g3yi(:,2) + g1yi(:,4)))
352 tau2n = bnorm(:,1) * (rmu * (g2yi(:,2) + g1yi(:,3)))
[all …]
|
| /phasta/phSolver/common/ |
| H A D | f3lhs.f | 41 & bnorm(npro,nsd), fmstot(npro),
71 bnorm(:,1) = temp1 * temp
72 bnorm(:,2) = temp2 * temp
73 bnorm(:,3) = temp3 * temp
105 fnrml(:,n,1) = fnrml(:,n,1) + WdetJb * bnorm(:,1)
107 fnrml(:,n,2) = fnrml(:,n,2) + WdetJb * bnorm(:,2)
109 fnrml(:,n,3) = fnrml(:,n,3) + WdetJb * bnorm(:,3)
|
| H A D | asbnabi.f | 15 dimension xlb(npro,nenl,nsd), bnorm(npro,nsd),
87 bnorm(:,1) = temp1 * temp
88 bnorm(:,2) = temp2 * temp
89 bnorm(:,3) = temp3 * temp
130 & shpfun(:,nodlcl) * bnorm(:,1) * WdetJb(:)
132 & shpfun(:,nodlcl) * bnorm(:,2) * WdetJb(:)
134 & shpfun(:,nodlcl) * bnorm(:,3) * WdetJb(:)
|