Lines Matching refs:WdetJb
62 & 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))
273 rNa(:,4) = WdetJb * unm
282 rNa(:,1) = rNa(:,1) + WdetJb * rou * u1
283 rNa(:,2) = rNa(:,2) + WdetJb * rou * u2
284 rNa(:,3) = rNa(:,3) + WdetJb * rou * u3
322 tau1n = ( tau1n - bnorm(:,1)*pres) * WdetJb
323 tau2n = ( tau2n - bnorm(:,2)*pres) * WdetJb
324 tau3n = ( tau3n - bnorm(:,3)*pres) * WdetJb
384 real*8 WdetJb(npro), bnorm(npro,nsd) local
413 & shape, WdetJb, bnorm,
437 & - WdetJb(iel) * flux(iel)
452 rNa(:) = -WdetJb * flux