Lines Matching refs:u1
1 subroutine e3Res ( u1, u2, u3, argument
41 dimension u1(npro), u2(npro), u3(npro),
139 rGNa(:,1,1) = two * rmu * g1yi(:,2) + tmp - u1(:)*u1(:)*rho(:)
140 rGNa(:,1,2) = tmp1 - u1(:)*u2(:)*rho(:)
141 rGNa(:,1,3) = tmp3 - u1(:)*u3(:)*rho(:)
142 rGNa(:,2,1) = tmp1 - u1(:)*u2(:)*rho(:)
145 rGNa(:,3,1) = tmp3 - u1(:)*u3(:)*rho(:)
165 rGNa(:,1,1) = rGNa(:,1,1) + tmp1 * u1
168 rGNa(:,2,1) = rGNa(:,2,1) + tmp2 * u1
171 rGNa(:,3,1) = rGNa(:,3,1) + tmp3 * u1
180 rGNa(:,1,1) = rGNa(:,1,1) + tmp1 * u1
181 rGNa(:,1,2) = rGNa(:,1,2) + tmp2 * u1
182 rGNa(:,1,3) = rGNa(:,1,3) + tmp3 * u1
353 & aci, u1, u2, u3, Temp, rho, xx, argument
363 & u1, u2, u3, Temp, rho local
422 & -two*(omega(3)*u1-omega(1)*u3)
426 & -two*(omega(1)*u2-omega(2)*u1)
429 rLui(:,1) =(aci(:,1) + u1 * g1yi(:,2)
434 rLui(:,2) =(aci(:,2) + u1 * g1yi(:,3)
439 rLui(:,3) =(aci(:,3) + u1 * g1yi(:,4)
446 rLui(:,1)=rlui(:,1)+u1(:)*divu(:)