Lines Matching refs:yold
56 & yold(nshg,ndof), acold(nshg,ndof), local
154 yold = y
287 call BCprofileScale(vbc_prof,BC,yold) ! fix the yold values to the reset BC
290 call itrBCSclr(yold,ac,iBC,BC,iper,ilwork)
296 & call BCprofileScale(vbc_prof,BC,yold)
340 call lesmodels(yold, acold, shgl, shp,
351 call asbwmod(yold, acold, x, BC, iBC,
362 call itrPredict(yold, y, acold, ac , uold, u, iBC)
390 & yold, acold, uold,
443 & yold, acold, uold,
497 call stsGetStats( y, yold, ac, acold,
517 call itrUpdate( yold, acold, uold, y, ac, u)
518 call itrBC (yold, acold, iBC, BC, iper,ilwork)
535 call forces ( yold, ilwork )
553 call restar ('out ', yold ,ac)
571 call Bflux ( yold, acold, uold, x,
604 & call getvel (yold, ilwork, iBC,
608 call genscale(yold, x, iper,
631 & call collectErrorYbar(ybar,yold,wallssVec,wallssVecBar,
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 +
1895 ybar(:,7) = tfact*yold(:,2)**2 +
1897 ybar(:,8) = tfact*yold(:,3)**2 +
1899 ybar(:,9) = tfact*yold(:,4)**2 +
1901 ybar(:,10) = tfact*yold(:,1)*yold(:,2) + !uv
1903 ybar(:,11) = tfact*yold(:,1)*yold(:,3) + !uw
1905 ybar(:,12) = tfact*yold(:,2)*yold(:,3) + !vw
1908 & ybar(:,13) = tfact*yold(:,6) + (one-tfact)*ybar(:,13)
1963 yphbar(:,1,iphase-1) = tfactphase*yold(:,1) +
1965 yphbar(:,2,iphase-1) = tfactphase*yold(:,2) +
1967 yphbar(:,3,iphase-1) = tfactphase*yold(:,3) +
1969 yphbar(:,4,iphase-1) = tfactphase*yold(:,4) +
1971 yphbar(:,5,iphase-1) = tfactphase*sqrt(yold(:,1)**2
1972 & +yold(:,2)**2+yold(:,3)**2) +
1975 & tfactphase*yold(:,1)*yold(:,1)
1979 & tfactphase*yold(:,1)*yold(:,2)
1983 & tfactphase*yold(:,1)*yold(:,3)
1987 & tfactphase*yold(:,2)*yold(:,2)
1991 & tfactphase*yold(:,2)*yold(:,3)
1995 & tfactphase*yold(:,3)*yold(:,3)
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