| /phasta/phSolver/incompressible/ |
| H A D | e3source.f | 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) [all …]
|
| H A D | itrdrv.f | 1729 real*8 gradV(nshg,nsdsq), strain(nshg,6), vorticity(nshg,5) local
|
| /phasta/phSolver/common/ |
| H A D | hierarchic.f | 329 & shg(npro,nshl,nsd), gradV(npro,nsd,nsd), local 354 gradV = zero 356 gradV(:,1,1) = gradV(:,1,1) + shg(:,n,1) * ycl(:,n,2) 357 gradV(:,2,1) = gradV(:,2,1) + shg(:,n,1) * ycl(:,n,3) 358 gradV(:,3,1) = gradV(:,3,1) + shg(:,n,1) * ycl(:,n,4) 360 gradV(:,1,2) = gradV(:,1,2) + shg(:,n,2) * ycl(:,n,2) 361 gradV(:,2,2) = gradV(:,2,2) + shg(:,n,2) * ycl(:,n,3) 362 gradV(:,3,2) = gradV(:,3,2) + shg(:,n,2) * ycl(:,n,4) 364 gradV(:,1,3) = gradV(:,1,3) + shg(:,n,3) * ycl(:,n,2) 365 gradV(:,2,3) = gradV(:,2,3) + shg(:,n,3) * ycl(:,n,3) [all …]
|
| H A D | elm3keps.f | 111 & dwi, gradV, argument 119 real*8 gradV(npro,3,3) local 214 ss = gradV(e,1,1) ** 2 215 & + gradV(e,2,2) ** 2 216 & + gradV(e,3,3) ** 2 218 & * ( (gradV(e,2,3) + gradV(e,3,2)) ** 2 219 & + (gradV(e,3,1) + gradV(e,1,3)) ** 2 220 & + (gradV(e,1,2) + gradV(e,2,1)) ** 2 )
|
| /phasta/phSolver/incompressible/e3source/ |
| H A D | e3source.fimplicit | 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) [all …]
|
| H A D | e3source.fRHSonly | 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) [all …]
|