Lines Matching refs:vbc_prof
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
75 rmaxvbot=vbc_prof(kk,2)
87 call BCprofileScale(vbc_prof,BC,yold)
92 subroutine BCprofileScale(vbc_prof,BC,yold) argument
99 real*8 vbc_prof(nshg,3), loc_ctrl_pr(3), ctrl_pr(3) local
131 if(vbc_prof(kk,1).ne.zero) then
132 if(vbc_prof(kk,2).ne.zero) then ! both of these true means top FC
134 BC(kk,3)=ctrl_a(3)*vbc_prof(kk,1)
135 BC(kk,4)=ctrl_a(3)*vbc_prof(kk,2)
139 BC(kk,3)=ctrl_a(1)*vbc_prof(kk,1)
145 else if(vbc_prof(kk,2).ne.zero) then ! y true means low FC
147 BC(kk,4)=ctrl_a(2)*vbc_prof(kk,2)