Lines Matching refs:yold
46 & yold(nshg,ndof), acold(nshg,ndof),
148 yold = y
154 if(BC_enable) call itrBC (yold, ac, iBC, BC, iper, ilwork)
215 call vortGLB(yold, x, shp, shgl, ilwork, vortG)
233 if(abs(vortG(i,4)).ge.vortmax*0.01) yold(i,6)=evis_IC_BC
236 call itrBCsclr(yold,ac,iBC,BC,iper,ilwork)
301 call initBCprofileScale(vbc_prof,BC,yold,x)
303 call itrBC (yold, ac, iBC, BC, iper, ilwork)
305 call itrBCsclr(yold,ac,iBC,BC,iper,ilwork)
329 call BCprofileScaleKW(PresBase,VelBase,BC,yold)
334 & call BCprofileScale(vbc_prof,BC,yold)
342 yold(:,6:ndof)=y(:,6:ndof)*tdecay
369 call getdmc (yold, shgl, shp,
375 call bardmc (yold, shgl, shp,
381 call projdmc (yold, shgl, shp,
392 call asbwmod(yold, acold, x, BC, iBC,
398 call itrPredict( yold, acold, y, ac )
462 call SolGMRp (y, ac, yold,
477 call SolGMRs (y, ac, yold,
496 call SolMFG (y, ac, yold,
515 call SolGMRe (y, ac, yold,
538 y(:,6) = yold(:,6) + (y(:,6)-yold(:,6))/alfi
540 yold(:,7) = y(:,7)
575 call SolGMRSclr(y, ac, yold,
597 call itrCorrect ( y, ac, yold, acold, solinc)
608 call itrCorrectSclr ( y, ac, yold, acold,
615 yold(:,7) = yold(:,7)
616 & + (y(:,7)-yold(:,7))*fct3
617 call itrBCSclr ( yold, acold, iBC, BC,
620 y(:,7) = yold(:,7)
651 call itrUpdate( yold, acold, y, ac)
652 call itrBC (yold, acold, iBC, BC, iper,ilwork)
655 call genscale(yold, x, iBC)
659 call itrBCSclr (yold, acold, iBC, BC, iper, ilwork)
709 call setBlowing_Duct2(x,BC,yold,iTurbWall,istp)
719 ybar(:,idof) =tfact*yold(:,idof) +
725 ybar(:,ndof+idof) = tfact*yold(:,idof)**2 +
728 ybar(:,ndof+6) = tfact*yold(:,1)*yold(:,2) + !uv
730 ybar(:,ndof+7) = tfact*yold(:,1)*yold(:,3) + !uw
732 ybar(:,ndof+8) = tfact*yold(:,2)*yold(:,3) + !vw
751 rerr(:, 7)=rerr(:, 7)+(yold(:,1)-ybar(:,1))**2
752 rerr(:, 8)=rerr(:, 8)+(yold(:,2)-ybar(:,2))**2
753 rerr(:, 9)=rerr(:, 9)+(yold(:,3)-ybar(:,3))**2
754 rerr(:,10)=rerr(:,10)+(yold(:,4)-ybar(:,4))**2
766 call checkpoint (nstp,yold, acold, ybar, rerr, velbar,
771 call checkpoint (nstp,yold, acold, ybar, rerr, velbar,
776 call checkpoint (nstp,yold, acold, ybar, rerr, velbar,
867 subroutine checkpoint (nstp,yold, acold, ybar, rerr, velbar, argument
877 & yold(nshg,ndof), acold(nshg,ndof), local
896 call restar ('out ', yold, acold)