Searched refs:MC_uInlet (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | MachControl.f90 | 32 real*8 :: MC_uInlet !x-velocity at the inlet variable
83 call MPI_ALLREDUCE(vBCg, MC_uInlet, 1,
120 bangbang = MC_uInlet <= MC_uLim(1) .or.
121 & MC_uInlet >= MC_uLim(2)
151 MC_uInlet = MC_Kd*MC_dMtdt +
157 MC_uInlet = min(max(MC_uInlet, MC_uLim(1)), MC_uLim(2))
161 & call MPI_Bcast(MC_uInlet, 1, MPI_DOUBLE_PRECISION,
167 BC(imapped,3) = MC_uInlet*MC_vscale(i)
171 BC(MC_imapInlet(i), 3) = MC_uInlet
191 write(*, "('u_inlet: ',F9.6)") MC_uInlet
|