Lines Matching refs:gradV
251 real*8 gradV(npro,nsd,nsd), absVort(npro), local
287 gradV = zero
293 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * yl(:,n,2)
294 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * yl(:,n,3)
295 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * yl(:,n,4)
297 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * yl(:,n,2)
298 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * yl(:,n,3)
299 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * yl(:,n,4)
301 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * yl(:,n,2)
302 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * yl(:,n,3)
303 gradV(:,3,3) = gradV(:,3,3) + shg(:,n,3) * yl(:,n,4)
311 absVort = sqrt( (gradV(:,2,3) - gradV(:,3,2)) ** 2
312 & + (gradV(:,3,1) - gradV(:,1,3)) ** 2
313 & + (gradV(:,1,2) - gradV(:,2,1)) ** 2 )
360 & gradV(e,1,1)**2+gradV(e,1,2)**2+gradV(e,1,3)**2
361 & + gradV(e,2,1)**2+gradV(e,2,2)**2+gradV(e,2,3)**2
362 & + gradV(e,3,1)**2+gradV(e,3,2)**2+gradV(e,3,3)**2 )
453 gradV = zero
459 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * yl(:,n,2)
460 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * yl(:,n,3)
461 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * yl(:,n,4)
463 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * yl(:,n,2)
464 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * yl(:,n,3)
465 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * yl(:,n,4)
467 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * yl(:,n,2)
468 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * yl(:,n,3)
469 gradV(:,3,3) = gradV(:,3,3) + shg(:,n,3) * yl(:,n,4)
493 & dwall, gradV,