Lines Matching refs:g3yi
102 real*8 g3yi(npro,nflow) local
127 g3yi = zero
133 g3yi(:,2) = g3yi(:,2) + shg(:,n,3) * yl(:,n,2) ! du/dz
137 g3yi(:,3) = g3yi(:,3) + shg(:,n,3) * yl(:,n,3) ! dv/dz
141 g3yi(:,4) = g3yi(:,4) + shg(:,n,3) * yl(:,n,4) ! dw/dz
154 & (g2yi(:,4)-g3yi(:,3)) !dw/dy-dv/dz
158 & (g3yi(:,2)-g1yi(:,4)) !du/dz-dw/dx
167 & ( 0.5*(g2yi(:,4)-g3yi(:,3))**2 !dw/dy-dv/dz
168 & +0.5*(g3yi(:,2)-g1yi(:,4))**2 !du/dz-dw/dx
170 & -g1yi(:,2)**2-g2yi(:,3)**2-g3yi(:,4)**2
171 & -0.5*(g2yi(:,4)+g3yi(:,3))**2
172 & -0.5*(g3yi(:,2)+g1yi(:,4))**2