Home
last modified time | relevance | path

Searched refs:WdetJb (Results 1 – 6 of 6) sorted by relevance

/phasta/phSolver/common/ !
H A Df3lhs.f40 dimension WdetJb(npro),
85 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
87 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
89 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
91 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
93 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
95 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
102 flhsl(:,n,1) = flhsl(:,n,1) + WdetJb * shape(:,n)
105 fnrml(:,n,1) = fnrml(:,n,1) + WdetJb * bnorm(:,1)
107 fnrml(:,n,2) = fnrml(:,n,2) + WdetJb * bnorm(:,2)
[all …]
H A Dasbnabi.f16 & rl(npro,nshl,nsd), WdetJb(npro),
123 WdetJb(:) = Qwtb(lcsyst,intp) * Wfactor(:)
130 & shpfun(:,nodlcl) * bnorm(:,1) * WdetJb(:)
132 & shpfun(:,nodlcl) * bnorm(:,2) * WdetJb(:)
134 & shpfun(:,nodlcl) * bnorm(:,3) * WdetJb(:)
174 & rl(npro,nshl), WdetJb(npro),
273 WdetJb(:) = Qwtb(lcsyst,intp) * Wfactor(:)
286 rl(:,nodlcl) = rl(:,nodlcl) + shpfun(:,nodlcl) * WdetJb(:)
/phasta/phSolver/incompressible/
H A De3b.f62 & g3yi(npro,ndof), WdetJb(npro),
128 & lnode, WdetJb,
154 flxID(1,iface) = flxID(1,iface) + WdetJb(iel)! measure area too
155 flxID(2,iface) = flxID(2,iface) - WdetJb(iel) * unm(iel)
158 & * WdetJb(iel)
161 & * WdetJb(iel)
164 & * WdetJb(iel)
270 rNa(:,1) = -WdetJb * ( tau1n - bnorm(:,1) * pres - vdot(:,1))
271 rNa(:,2) = -WdetJb * ( tau2n - bnorm(:,2) * pres - vdot(:,2))
272 rNa(:,3) = -WdetJb * ( tau3n - bnorm(:,3) * pres - vdot(:,3))
[all …]
H A De3bvar.f4 & WdetJb, bnorm, pres, argument
56 & WdetJb(npro), bnorm(npro,nsd),
234 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
236 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
238 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
240 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
242 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
244 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
652 tsFctvw = lhmFctvw * WdetJb * rhovw * thicknessvw
795 & shape, WdetJb, bnorm, argument
[all …]
/phasta/phSolver/compressible/
H A De3b.f64 & g3yi(npro,nflow), WdetJb(npro),
130 & g2yi, g3yi, WdetJb,
245 EGmass(:,b, aa) = con * WdetJb * shape(:,b) * dNadn(:,aa)
279 & + WdetJb * shape(:,nodlcl) * F1
281 & + WdetJb * shape(:,nodlcl) * F2
283 & + WdetJb * shape(:,nodlcl) * F3
285 & + WdetJb * shape(:,nodlcl) * F4
287 & + WdetJb * shape(:,nodlcl) * F5
302 rml(:,nodlcl,2) = rml(:,nodlcl,2) - WdetJb *
304 rml(:,nodlcl,3) = rml(:,nodlcl,3) - WdetJb *
[all …]
H A De3bvar.f3 & g3yi, WdetJb, bnorm, pres, T, argument
60 & WdetJb(npro), bnorm(npro,nsd),
182 WdetJb = (1 - Qwtb(lcsyst,intp)) / (four*temp)
190 WdetJb = Qwtb(lcsyst,intp) / temp
192 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
379 & g1yti, g2yti, g3yti, WdetJb, argument
420 & WdetJb(npro), bnorm(npro,nsd),
539 WdetJb = (1 - Qwtb(lcsyst,intp)) / (four*temp)
541 WdetJb = Qwtb(lcsyst,intp)/ temp
543 WdetJb =Qwtb(lcsyst,intp) / (four*temp)