Home
last modified time | relevance | path

Searched refs:yold (Results 1 – 17 of 17) sorted by relevance

/phasta/phSolver/compressible/
H A DitrPC.f56 subroutine itrPredict ( yold, acold, argument
61 real*8 yold(nshg,ndof), acold(nshg,ndof), local
71 y = yold
79 y = yold+alfi/Dtgl*acold*(one-gami)
92 y = yold+alfi/Dtgl*acold
108 y = yold+fct1*(yold-y)
114 ac = acold*fct2+(y-yold)*fct3
128 subroutine itrCorrect ( y, ac,yold, acold,Dy) argument
133 real*8 yold(nshg,ndof), acold(nshg,ndof) local
146 ac= acold*fct1+(y-yold)*fct2
[all …]
H A Ditrdrv.f46 & 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)
[all …]
H A DBCprofile.f12 subroutine initBCprofileScale(vbc_prof,BC,yold,x) argument
20 real*8 BC(nshg,ndofBC),yold(nshg,ndof),x(nshg,3) local
87 call BCprofileScale(vbc_prof,BC,yold)
92 subroutine BCprofileScale(vbc_prof,BC,yold) argument
100 real*8 BC(nshg,ndofBC),yold(nshg,ndof),mdotNow(3) local
111 loc_ctrl_pr(1) = yold(kmaxinf,4) ! inlet
112 loc_ctrl_pr(2) = yold(kmaxbot,4) ! bottom FC
113 loc_ctrl_pr(3) = yold(kmaxtop,4) ! top FC
H A DBCprofileKW.f2 subroutine BCprofileScaleKW(PresBase,VelBase,BC,yold) argument
7 real*8 BC(nshg,ndofBC), yold(nshg,ndof) local
H A Dsolgmr.f1 subroutine SolGMRe (y, ac, yold, acold, argument
43 & yold(nshg,ndof), acold(nshg,ndof),
368 subroutine SolGMRs(y, ac, yold, acold, argument
415 & yold(nshg,ndof), acold(nshg,ndof),
746 subroutine SolGMRSclr(y, ac, yold, argument
792 & yold(nshg,ndof), acold(nshg,ndof),
H A Dsolmfg.f1 subroutine SolMFG (y, ac, yold, acold, argument
42 & yold(nshg,ndof), acold(nshg,ndof),
H A Dsolgmrpetsc.c59 void SolGMRp(double* y, double* ac, double* yold, in SolGMRp() argument
/phasta/phSolver/incompressible/
H A DitrPC.f65 subroutine itrPredict (yold, y, acold, ac, uold, u, iBC) argument
70 & u(nshg,nsd), yold(nshg,ndof), local
77 y = yold
82 u(:,isd) = uold(:,isd) + Delt(itseq)*yold(:,isd) +
91 y = yold + (one - gami)/Dtgl * acold
96 y = yold+alfi*Delt(itseq)*acold
104 y = yold+fct1*(yold-y)
105 ac = acold*fct2+(y-yold)*fct3
209 subroutine itrYAlpha ( uold, yold, acold, argument
216 real*8 yold(nshg,ndof), acold(nshg,ndof), local
[all …]
H A Ditrdrv.f56 & 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,
[all …]
H A Dsoldir.f1 subroutine SolDir (y, ac, yold, acold, argument
19 & yold(nshg,ndof), acold(nshg,ndof),
45 call itrYAlpha( yold, acold, y, ac, yAlpha, acAlpha)
H A Dsolfar.f2 & yold, acold, uold, argument
83 & yold(nshg,ndof), acold(nshg,ndof), local
134 call itrYAlpha( uold, yold, acold,
342 & yold, acold, uold, argument
392 & yold(nshg,ndof), acold(nshg,ndof), local
429 call itrYAlpha( uold, yold, acold,
H A DBCprofile.f2 subroutine BCprofileScale(vbc_prof,BC,yold) argument
6 real*8 BC(nshg,ndofBC),yold(nshg,ndof) local
H A DadvLES.f518 & y(nshg,5), yold(nshg,5),
546 yold(:,1)=y(:,4)
547 yold(:,2:4)=y(:,1:3)
578 call hfilterBB (yold, x, mien(iblk)%p, fres,
685 call getstrl (yold, x, mien(iblk)%p,
965 & y(nshg,5), yold(nshg,5),
978 yold(:,1)=y(:,4)
979 yold(:,2:4)=y(:,1:3)
1007 call hfilterC (yold, x, mien(iblk)%p, hfres,
1061 call twohfilterB (yold, x, strl(iel:inum,:), mien(iblk)%p,
[all …]
H A Dstats.f187 subroutine stsGetStats( y, yold, ac, acold, argument
197 real*8 y(nshg,ndof), yold(nshg,ndof), local
225 call itrYAlpha( uold, yold, acold,
H A Dfilters.f1674 dimension y(nshg,5), yold(nshg,5),
1709 yold(:,1)=y(:,4)
1710 yold(:,2:4)=y(:,1:3)
1743 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
1765 call getstrl (yold, x, mien(iblk)%p,
2359 & y(nshg,5), yold(nshg,5),
2404 yold(:,1)=y(:,4)
2405 yold(:,2:4)=y(:,1:3)
2433 call hfilterCC (yold, x, mien(iblk)%p, hfres,
2490 call twohfilterBB (yold, x, strl(iel:inum,:), mien(iblk)%p,
[all …]
/phasta/phSolver/common/
H A Daveprep.f292 & y(nshg,5), yold(nshg,5),
301 yold(:,1)=y(:,4)
302 yold(:,2:4)=y(:,1:3)
329 call asithf (yold, x, strl(iel:inum,:), mien(iblk)%p, fres,
422 call getstrl (yold, x, mien(iblk)%p,
H A Dbardmc.f67 & y(nshg,5), yold(nshg,5),
93 yold(:,1)=y(:,4)
94 yold(:,2:4)=y(:,1:3)
95 yold(:,5) = y(:,5)
98 rho(:) = yold(:,1) / (Rgas * yold(:,5)) ! get density at nodes.
125 call hfilter (yold, x, mien(iblk)%p, hfres,
249 call twohfilter (yold, x, strl(iel:inum,:), mien(iblk)%p,
268 call getstrl (yold, x, mien(iblk)%p,