Lines Matching refs:u1

2      &                     u1,     u2,     u3,
40      &            cp(npro),                  u1(npro),
67          uh1=    u1*u1*(gijd(:,3)*gijd(:,6)-gijd(:,5)*gijd(:,5))
70      &   + two *(u1*u2*(gijd(:,4)*gijd(:,5)-gijd(:,2)*gijd(:,6))
71      &         + u1*u3*(gijd(:,2)*gijd(:,5)-gijd(:,4)*gijd(:,3))
82          h2o2u =   u1*u1*gijd(:,1)
85      &     +(u1*u2*gijd(:,2)
86      &     + u1*u3*gijd(:,4)
163      &        + (u1*(u1*gijd(:,1) + two*(u2*gijd(:,2)+u3*gijd(:,4)))
285      &     u1,              u2,             u3,
325      &            cp(npro),                  u1(npro),
352       u = sqrt(u1**2+u2**2+u3**2)
353       eb1 = cp*T - pt5*(u1**2+u2**2+u3**2) 
371      &               gamb,            c,               u1,
585         betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
587         Tau(:,1,1) = rho*T*(STau(:,1)+u1*STau(:,2)+
589         Tau(:,1,2) = rho*T*(STau(:,2)+u1*STau(:,3)+
591         Tau(:,1,3) = rho*T*(STau(:,4)+u1*STau(:,5)+
593         Tau(:,1,4) = rho*T*(STau(:,7)+u1*STau(:,8)+
595         Tau(:,1,5) = rho*T*(STau(:,11)+u1*STau(:,12)+
599         Tau(:,2,1) = T(:)*(STau(:,2) + u1(:)*STau(:,11))
600         Tau(:,2,2) = T(:)*(STau(:,3) + u1(:)*STau(:,12))
601         Tau(:,2,3) = T(:)*(STau(:,5) + u1(:)*STau(:,13))
602         Tau(:,2,4) = T(:)*(STau(:,8) + u1(:)*STau(:,14))
603         Tau(:,2,5) = T(:)*(STau(:,12) + u1(:)*STau(:,15))
746      &     u1,              u2,             u3,
787      &            cp(npro),                  u1(npro),
814       u = sqrt(u1**2+u2**2+u3**2)
815       eb1 = cp*T - pt5*(u1**2+u2**2+u3**2) 
833      &               gamb,            c,               u1,
1047          betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
1049          Tau(:,1,1,k) = rho*T*(STau(:,1,k)+u1*STau(:,2,k)+
1051          Tau(:,1,2,k) = rho*T*(STau(:,2,k)+u1*STau(:,3,k)+
1053          Tau(:,1,3,k) = rho*T*(STau(:,4,k)+u1*STau(:,5,k)+
1055          Tau(:,1,4,k) = rho*T*(STau(:,7,k)+u1*STau(:,8,k)+
1057          Tau(:,1,5,k) = rho*T*(STau(:,11,k)+u1*STau(:,12,k)+
1061          Tau(:,2,1,k) = T(:)*(STau(:,2,k) + u1(:)*STau(:,11,k))
1062          Tau(:,2,2,k) = T(:)*(STau(:,3,k) + u1(:)*STau(:,12,k))
1063          Tau(:,2,3,k) = T(:)*(STau(:,5,k) + u1(:)*STau(:,13,k))
1064          Tau(:,2,4,k) = T(:)*(STau(:,8,k) + u1(:)*STau(:,14,k))
1065          Tau(:,2,5,k) = T(:)*(STau(:,12,k) + u1(:)*STau(:,15,k))
1212      &                       u1,     u2,     u3,
1251      &            cp(npro),                  u1(npro),
1278       uh1=    u1*u1*(gijd(:,3)*gijd(:,6)-gijd(:,5)*gijd(:,5))
1281      &     + two *(u1*u2*(gijd(:,4)*gijd(:,5)-gijd(:,2)*gijd(:,6))
1282      &     + u1*u3*(gijd(:,2)*gijd(:,5)-gijd(:,4)*gijd(:,3))
1295       h2o2u =   u1*u1*gijd(:,1)
1298      &     +(u1*u2*gijd(:,2)
1299      &     + u1*u3*gijd(:,4)