Lines Matching refs:ctrl_a
8 real*8 ctrl_a(3) variable
126 ctrl_a(1) = ctrl_factor(1)*mdotNow(1)/ctrl_pr(1) ! inlet
127 ctrl_a(2) = ctrl_factor(2)*mdotNow(2)/ctrl_pr(2) ! bottom FC
128 ctrl_a(3) = ctrl_factor(3)*mdotNow(3)/ctrl_pr(3) ! top FC
133 if(ctrl_a(3).ge.zero) then
134 BC(kk,3)=ctrl_a(3)*vbc_prof(kk,1)
135 BC(kk,4)=ctrl_a(3)*vbc_prof(kk,2)
138 if(ctrl_a(1).ge.zero) then
139 BC(kk,3)=ctrl_a(1)*vbc_prof(kk,1)
141 if(ctrl_a(1).eq.zero) then
146 if(ctrl_a(2).ge.zero) then
147 BC(kk,4)=ctrl_a(2)*vbc_prof(kk,2)
149 if(ctrl_a(2).eq.zero) then