Searched refs:ctrl_pr (Results 1 – 1 of 1) sorted by relevance
19 real*8 vbc_prof(nshg,3), loc_ctrl_pr(3), ctrl_pr(3) local99 real*8 vbc_prof(nshg,3), loc_ctrl_pr(3), ctrl_pr(3) local119 call MPI_ALLREDUCE ( loc_ctrl_pr, ctrl_pr, 3, 122 ctrl_pr = loc_ctrl_pr126 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 FC