Searched refs:ui (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | e3stab.f | 329 subroutine e3uBar (rho, ui, dxidx, argument
334 real*8 rho(npro), ui(npro,nsd), local
364 3 + ( ui(:,1) * ( gijd(:,1) * ui(:,1)
365 4 + gijd(:,4) * ui(:,2)
366 5 + gijd(:,6) * ui(:,3) )
367 6 + ui(:,2) * ( gijd(:,4) * ui(:,1)
368 7 + gijd(:,2) * ui(:,2)
369 8 + gijd(:,5) * ui(:,3) )
370 9 + ui(:,3) * ( gijd(:,6) * ui(:,1)
371 a + gijd(:,5) * ui(:,2)
[all …]
|
| H A D | filters.f | 1666 dimension ui(nfath,3), snorm(nfath),
1935 ui = zero
1976 ui(ifath(i),1) = ui(ifath(i),1) + fres(i,1)
1977 ui(ifath(i),2) = ui(ifath(i),2) + fres(i,2)
1978 ui(ifath(i),3) = ui(ifath(i),3) + fres(i,3)
1995 call drvAllreduce(ui, uir,3*nfath)
2083 ui(:,1) = ui(:,1)/nsons(:)
2084 ui(:,2) = ui(:,2)/nsons(:)
2085 ui(:,3) = ui(:,3)/nsons(:)
2131 ucomp(:,:) = ucomp(:,:)+ui(:,:)
[all …]
|
| H A D | advLES.f | 2485 & ui(nfath,3), snorm(nfath),
2750 ui = zero
2791 ui(ifath(i),1) = ui(ifath(i),1) + fres(i,1)
2792 ui(ifath(i),2) = ui(ifath(i),2) + fres(i,2)
2793 ui(ifath(i),3) = ui(ifath(i),3) + fres(i,3)
2810 call drvAllreduce(ui, uir,3*nfath)
2898 ui(:,1) = ui(:,1)/nsons(:)
2899 ui(:,2) = ui(:,2)/nsons(:)
2900 ui(:,3) = ui(:,3)/nsons(:)
2946 ucomp(:,:) = ucomp(:,:)+ui(:,:)
[all …]
|