Searched refs:vbc_prof (Results 1 – 4 of 4) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | BCprofile.f | 12 subroutine initBCprofileScale(vbc_prof,BC,yold,x) argument
19 real*8 vbc_prof(nshg,3), loc_ctrl_pr(3), ctrl_pr(3) local
58 if(vbc_prof(kk,1).ne.zero) then
59 if(vbc_prof(kk,2).ne.zero) then ! both of these true means top FC
60 if(abs(vbc_prof(kk,1)).gt.rmaxvtop) then
62 rmaxvtop=abs(vbc_prof(kk,1))
66 if(vbc_prof(kk,1).gt.rmaxvinflow) then
68 rmaxvinflow=vbc_prof(kk,1)
72 else if(vbc_prof(kk,2).ne.zero) then ! y true means low FC
73 if(vbc_prof(kk,2).gt.rmaxvbot) then
[all …]
|
| H A D | itrdrv.f | 71 real*8 vbc_prof(nshg,3) local
301 call initBCprofileScale(vbc_prof,BC,yold,x)
334 & call BCprofileScale(vbc_prof,BC,yold)
|
| /phasta/phSolver/incompressible/ |
| H A D | BCprofile.f | 2 subroutine BCprofileScale(vbc_prof,BC,yold) argument
5 real*8 vbc_prof(nshg,3) local
61 BC(kk,3)=r_time_factor*vbc_prof(kk,1)*offphase
62 BC(kk,4)=r_time_factor*vbc_prof(kk,2)*offphase
63 BC(kk,5)=r_time_factor*vbc_prof(kk,3)*offphase
77 subroutine BCprofileInit(vbc_prof,x) argument
81 real*8 vbc_prof(nshg,3), x(numnp,nsd) local
92 vbc_prof(kk,1)=0.d0
93 vbc_prof(kk,2)=-1.6*1E7*(x(kk,1)-x1)*(x(kk,1)-x2)*
95 vbc_prof(kk,3)=0.d0
[all …]
|
| H A D | itrdrv.f | 75 real*8 vbc_prof(nshg,3) local
206 vbc_prof(:,1:3) = BC(:,3:5)
208 call BCprofileInit(vbc_prof,x)
287 call BCprofileScale(vbc_prof,BC,yold) ! fix the yold values to the reset BC
296 & call BCprofileScale(vbc_prof,BC,yold)
|