Lines Matching refs:u2
1 subroutine e3Res ( u1, u2, u3, argument
41 dimension u1(npro), u2(npro), u3(npro),
140 rGNa(:,1,2) = tmp1 - u1(:)*u2(:)*rho(:)
142 rGNa(:,2,1) = tmp1 - u1(:)*u2(:)*rho(:)
143 rGNa(:,2,2) = two * rmu * g2yi(:,3) + tmp - u2(:)*u2(:)*rho(:)
144 rGNa(:,2,3) = tmp2 - u3(:)*u2(:)*rho(:)
146 rGNa(:,3,2) = tmp2 - u3(:)*u2(:)*rho(:)
166 rGNa(:,1,2) = rGNa(:,1,2) + tmp1 * u2
169 rGNa(:,2,2) = rGNa(:,2,2) + tmp2 * u2
172 rGNa(:,3,2) = rGNa(:,3,2) + tmp3 * u2
183 rGNa(:,2,1) = rGNa(:,2,1) + tmp1 * u2
184 rGNa(:,2,2) = rGNa(:,2,2) + tmp2 * u2
185 rGNa(:,2,3) = rGNa(:,2,3) + tmp3 * u2
353 & aci, u1, u2, u3, Temp, rho, xx, argument
363 & u1, u2, u3, Temp, rho local
418 & -two*(omega(2)*u3-omega(3)*u2)
426 & -two*(omega(1)*u2-omega(2)*u1)
430 & + u2 * g2yi(:,2)
435 & + u2 * g2yi(:,3)
440 & + u2 * g2yi(:,4)
447 rLui(:,2)=rlui(:,2)+u2(:)*divu(:)