Home
last modified time | relevance | path

Searched refs:xavegt (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/incompressible/
H A Dfilters.f974 & iBC, BC, xavegt) argument
1006 & xavegr(nfath,12), xavegt(nfath,12),
1025 xavegt = zero ! For averaging dissipations and SUPG stresses
1189 write(*,*)'diss=', xavegt(14,11), xavegr(14,11)
1193 xavegt(:,m) = xavegt(:,m) + xavegr(:,m)
1203 xavegt(:,m) = xavegt(:,m) + xaveg(:,m)
1209 write(*,*)'diss=', xavegt(14,11), xavegr(14,11)
1216 write(376,*)xavegt(i,1),xavegt(i,2),xavegt(i,3)
1217 write(377,*)xavegt(i,4),xavegt(i,5),xavegt(i,6)
1218 write(378,*)xavegt(i,7),xavegt(i,8),xavegt(i,9)
[all …]
H A DadvLES.f1273 & iBC, BC, stabdis, xavegt) argument
1307 & xavegt(nfath,12)
1560 xavegt(:,m) = xavegt(:,m) + xavegr(:,m)
1572 xavegt(:,m) = xavegt(:,m) + xaveg(:,m)
1590 write(380,*)xavegt(i,10),xavegt(i,11),xavegt(i,12)
1609 & xavegt, stabdis) argument
1641 & yold(nshg,ndof), xavegt(nfath,12),
1818 xavegt = zero ! For averaging dissipations and SUPG stresses
1996 xavegt(:,m) = xavegt(:,m) + xavegr(:,m)
2006 xavegt(:,m) = xavegt(:,m) + xaveg(:,m)
[all …]
H A Ditrdrv.f871 real*8, allocatable, dimension(:,:) :: xavegt, xavegt2,xavegt3 local
877 allocate (xavegt(nfath,12))
963 & iBC, BC, xavegt)
994 deallocate (xavegt)