Searched refs:ctrl_a (Results 1 – 1 of 1) sorted by relevance
8 real*8 ctrl_a(3) variable126 ctrl_a(1) = ctrl_factor(1)*mdotNow(1)/ctrl_pr(1) ! inlet127 ctrl_a(2) = ctrl_factor(2)*mdotNow(2)/ctrl_pr(2) ! bottom FC128 ctrl_a(3) = ctrl_factor(3)*mdotNow(3)/ctrl_pr(3) ! top FC133 if(ctrl_a(3).ge.zero) then134 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) then139 BC(kk,3)=ctrl_a(1)*vbc_prof(kk,1)141 if(ctrl_a(1).eq.zero) then[all …]