Searched refs:loc_ctrl_pr (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ ! |
| H A D | BCprofile.f | 19 real*8 vbc_prof(nshg,3), loc_ctrl_pr(3), ctrl_pr(3) local
99 real*8 vbc_prof(nshg,3), loc_ctrl_pr(3), ctrl_pr(3) local
111 loc_ctrl_pr(1) = yold(kmaxinf,4) ! inlet
112 loc_ctrl_pr(2) = yold(kmaxbot,4) ! bottom FC
113 loc_ctrl_pr(3) = yold(kmaxtop,4) ! top FC
119 call MPI_ALLREDUCE ( loc_ctrl_pr, ctrl_pr, 3,
122 ctrl_pr = loc_ctrl_pr
|