Lines Matching refs:u3
1 subroutine e3Res ( u1, u2, u3, argument
41 dimension u1(npro), u2(npro), u3(npro),
141 rGNa(:,1,3) = tmp3 - u1(:)*u3(:)*rho(:)
144 rGNa(:,2,3) = tmp2 - u3(:)*u2(:)*rho(:)
145 rGNa(:,3,1) = tmp3 - u1(:)*u3(:)*rho(:)
146 rGNa(:,3,2) = tmp2 - u3(:)*u2(:)*rho(:)
147 rGNa(:,3,3) = two * rmu * g3yi(:,4) + tmp - u3(:)*u3(:)*rho(:)
167 rGNa(:,1,3) = rGNa(:,1,3) + tmp1 * u3
170 rGNa(:,2,3) = rGNa(:,2,3) + tmp2 * u3
173 rGNa(:,3,3) = rGNa(:,3,3) + tmp3 * u3
186 rGNa(:,3,1) = rGNa(:,3,1) + tmp1 * u3
187 rGNa(:,3,2) = rGNa(:,3,2) + tmp2 * u3
188 rGNa(:,3,3) = rGNa(:,3,3) + tmp3 * u3
353 & aci, u1, u2, u3, Temp, rho, xx, argument
363 & u1, u2, u3, Temp, rho local
418 & -two*(omega(2)*u3-omega(3)*u2)
422 & -two*(omega(3)*u1-omega(1)*u3)
431 & + u3 * g3yi(:,2) - src(:,1) ) * rho
436 & + u3 * g3yi(:,3) - src(:,2) ) * rho
441 & + u3 * g3yi(:,4) - src(:,3) ) * rho
448 rLui(:,3)=rlui(:,3)+u3(:)*divu(:)