Lines Matching refs:xavegt
974 & 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)
1219 write(379,*)xavegt(i,10),xavegt(i,11),xavegt(i,12)