Lines Matching refs:g2yi
101 real*8 g2yi(npro,nflow) local
126 g2yi = zero
132 g2yi(:,2) = g2yi(:,2) + shg(:,n,2) * yl(:,n,2) ! du/dy
136 g2yi(:,3) = g2yi(:,3) + shg(:,n,2) * yl(:,n,3) ! dv/dy
140 g2yi(:,4) = g2yi(:,4) + shg(:,n,2) * yl(:,n,4) ! dw/dy
154 & (g2yi(:,4)-g3yi(:,3)) !dw/dy-dv/dz
162 & (g1yi(:,3)-g2yi(:,2)) !dv/dx-du/dy
167 & ( 0.5*(g2yi(:,4)-g3yi(:,3))**2 !dw/dy-dv/dz
169 & +0.5*(g1yi(:,3)-g2yi(:,2))**2 !dv/dx-du/dy
170 & -g1yi(:,2)**2-g2yi(:,3)**2-g3yi(:,4)**2
171 & -0.5*(g2yi(:,4)+g3yi(:,3))**2
173 & -0.5*(g1yi(:,3)+g2yi(:,2))**2 )*0.5