Lines Matching refs:gradV
283 gradV = zero
289 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * yl(:,n,2)
290 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * yl(:,n,3)
291 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * yl(:,n,4)
293 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * yl(:,n,2)
294 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * yl(:,n,3)
295 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * yl(:,n,4)
297 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * yl(:,n,2)
298 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * yl(:,n,3)
299 gradV(:,3,3) = gradV(:,3,3) + shg(:,n,3) * yl(:,n,4)
307 absVort = sqrt( (gradV(:,2,3) - gradV(:,3,2)) ** 2
308 & + (gradV(:,3,1) - gradV(:,1,3)) ** 2
309 & + (gradV(:,1,2) - gradV(:,2,1)) ** 2 )
331 qfac = sqrt(gradV(e,1,1)**2+gradV(e,1,2)**2+gradV(e,1,3)**2
332 & +gradV(e,2,1)**2+gradV(e,2,2)**2+gradV(e,2,3)**2
333 & +gradV(e,3,1)**2+gradV(e,3,2)**2+gradV(e,3,3)**2)
415 gradV = zero
421 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * yl(:,n,2)
422 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * yl(:,n,3)
423 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * yl(:,n,4)
425 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * yl(:,n,2)
426 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * yl(:,n,3)
427 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * yl(:,n,4)
429 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * yl(:,n,2)
430 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * yl(:,n,3)
431 gradV(:,3,3) = gradV(:,3,3) + shg(:,n,3) * yl(:,n,4)
455 & dwall, gradV,