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 )
333 qfac = sqrt(gradV(e,1,1)**2+gradV(e,1,2)**2+gradV(e,1,3)**2
334 & +gradV(e,2,1)**2+gradV(e,2,2)**2+gradV(e,2,3)**2
335 & +gradV(e,3,1)**2+gradV(e,3,2)**2+gradV(e,3,3)**2)
429 gradV = zero
435 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * yl(:,n,2)
436 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * yl(:,n,3)
437 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * yl(:,n,4)
439 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * yl(:,n,2)
440 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * yl(:,n,3)
441 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * yl(:,n,4)
443 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * yl(:,n,2)
444 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * yl(:,n,3)
445 gradV(:,3,3) = gradV(:,3,3) + shg(:,n,3) * yl(:,n,4)
469 & dwall, gradV,