Lines Matching refs:u2
2 & u1, u2, u3,
41 & u2(npro), u3(npro),
68 & + u2*u2*(gijd(:,1)*gijd(:,6)-gijd(:,4)*gijd(:,4))
70 & + two *(u1*u2*(gijd(:,4)*gijd(:,5)-gijd(:,2)*gijd(:,6))
72 & + u2*u3*(gijd(:,4)*gijd(:,2)-gijd(:,1)*gijd(:,5)))
83 & + u2*u2*gijd(:,3)
85 & +(u1*u2*gijd(:,2)
87 & + u2*u3*gijd(:,5))*two + 1.0e-15 !FIX FOR INVALID MESHES
163 & + (u1*(u1*gijd(:,1) + two*(u2*gijd(:,2)+u3*gijd(:,4)))
164 & + u2*(u2*gijd(:,3) + two*u3*gijd(:,5))
285 & u1, u2, u3,
326 & u2(npro), u3(npro),
352 u = sqrt(u1**2+u2**2+u3**2)
353 eb1 = cp*T - pt5*(u1**2+u2**2+u3**2)
372 & u2, u3, a1,
585 betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
588 & u2*STau(:,4)+u3*STau(:,7)+betaT*STau(:,11))
590 & u2*STau(:,5)+u3*STau(:,8)+betaT*STau(:,12))
592 & u2*STau(:,6)+u3*STau(:,9)+betaT*STau(:,13))
594 & u2*STau(:,9)+u3*STau(:,10)+betaT*STau(:,14))
596 & u2*STau(:,13)+u3*STau(:,14)+betaT*STau(:,15))
605 Tau(:,3,1) = T(:)*(STau(:,4) + u2(:)*STau(:,11))
606 Tau(:,3,2) = T(:)*(STau(:,5) + u2(:)*STau(:,12))
607 Tau(:,3,3) = T(:)*(STau(:,6) + u2(:)*STau(:,13))
608 Tau(:,3,4) = T(:)*(STau(:,9) + u2(:)*STau(:,14))
609 Tau(:,3,5) = T(:)*(STau(:,13) + u2(:)*STau(:,15))
746 & u1, u2, u3,
788 & u2(npro), u3(npro),
814 u = sqrt(u1**2+u2**2+u3**2)
815 eb1 = cp*T - pt5*(u1**2+u2**2+u3**2)
834 & u2, u3, a1,
1047 betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
1050 & u2*STau(:,4,k)+u3*STau(:,7,k)+betaT*STau(:,11,k))
1052 & u2*STau(:,5,k)+u3*STau(:,8,k)+betaT*STau(:,12,k))
1054 & u2*STau(:,6,k)+u3*STau(:,9,k)+betaT*STau(:,13,k))
1056 & u2*STau(:,9,k)+u3*STau(:,10,k)+betaT*STau(:,14,k))
1058 & u2*STau(:,13,k)+u3*STau(:,14,k)+betaT*STau(:,15,k))
1067 Tau(:,3,1,k) = T(:)*(STau(:,4,k) + u2(:)*STau(:,11,k))
1068 Tau(:,3,2,k) = T(:)*(STau(:,5,k) + u2(:)*STau(:,12,k))
1069 Tau(:,3,3,k) = T(:)*(STau(:,6,k) + u2(:)*STau(:,13,k))
1070 Tau(:,3,4,k) = T(:)*(STau(:,9,k) + u2(:)*STau(:,14,k))
1071 Tau(:,3,5,k) = T(:)*(STau(:,13,k) + u2(:)*STau(:,15,k))
1212 & u1, u2, u3,
1252 & u2(npro), u3(npro),
1279 & + u2*u2*(gijd(:,1)*gijd(:,6)-gijd(:,4)*gijd(:,4))
1281 & + two *(u1*u2*(gijd(:,4)*gijd(:,5)-gijd(:,2)*gijd(:,6))
1283 & + u2*u3*(gijd(:,4)*gijd(:,2)-gijd(:,1)*gijd(:,5)))
1296 & + u2*u2*gijd(:,3)
1298 & +(u1*u2*gijd(:,2)
1300 & + u2*u3*gijd(:,5))*two + 1.0e-15 !FIX FOR INVALID MESHES