Lines Matching refs:ybar
97 real*8, allocatable, dimension(:,:) :: ybar, strain, vorticity local
167 allocate(ybar(nshg,irank2ybar)) ! more space for vorticity if requested
170 allocate(ybar(nshg,irank2ybar))
172 ybar = zero ! Initialize ybar to zero, which is essential
631 & call collectErrorYbar(ybar,yold,wallssVec,wallssVecBar,
688 & ybar,'d',nshg,17,lstep)
691 & ybar,'d',nshg,13,lstep)
748 deallocate(ybar)
1841 subroutine collectErrorYbar(ybar,yold,wallssVec,wallssVecBar, argument
1844 real*8 ybar(nshg,irank2yphbar),yold(nshg,ndof),vorticity(nshg,5) local
1887 ybar(:,1) = tfact*yold(:,1) + (one-tfact)*ybar(:,1)
1888 ybar(:,2) = tfact*yold(:,2) + (one-tfact)*ybar(:,2)
1889 ybar(:,3) = tfact*yold(:,3) + (one-tfact)*ybar(:,3)
1890 ybar(:,4) = tfact*yold(:,4) + (one-tfact)*ybar(:,4)
1891 ybar(:,5) = tfact*sqrt(yold(:,1)**2+yold(:,2)**2+
1892 & yold(:,3)**2) + (one-tfact)*ybar(:,5)
1893 ybar(:,6) = tfact*yold(:,1)**2 +
1894 & (one-tfact)*ybar(:,6)
1895 ybar(:,7) = tfact*yold(:,2)**2 +
1896 & (one-tfact)*ybar(:,7)
1897 ybar(:,8) = tfact*yold(:,3)**2 +
1898 & (one-tfact)*ybar(:,8)
1899 ybar(:,9) = tfact*yold(:,4)**2 +
1900 & (one-tfact)*ybar(:,9)
1901 ybar(:,10) = tfact*yold(:,1)*yold(:,2) + !uv
1902 & (one-tfact)*ybar(:,10)
1903 ybar(:,11) = tfact*yold(:,1)*yold(:,3) + !uw
1904 & (one-tfact)*ybar(:,11)
1905 ybar(:,12) = tfact*yold(:,2)*yold(:,3) + !vw
1906 & (one-tfact)*ybar(:,12)
1908 & ybar(:,13) = tfact*yold(:,6) + (one-tfact)*ybar(:,13)
1911 ybar(:,14) = tfact*vorticity(:,1) +
1912 & (one-tfact)*ybar(:,14)
1913 ybar(:,15) = tfact*vorticity(:,2) +
1914 & (one-tfact)*ybar(:,15)
1915 ybar(:,16) = tfact*vorticity(:,3) +
1916 & (one-tfact)*ybar(:,16)
1917 ybar(:,17) = tfact*vorticity(:,4) +
1918 & (one-tfact)*ybar(:,17)
2018 rerr(:, 7)=rerr(:, 7)+(yold(:,1)-ybar(:,1))**2
2019 rerr(:, 8)=rerr(:, 8)+(yold(:,2)-ybar(:,2))**2
2020 rerr(:, 9)=rerr(:, 9)+(yold(:,3)-ybar(:,3))**2
2021 rerr(:,10)=rerr(:,10)+(yold(:,4)-ybar(:,4))**2