Searched refs:u_max_all (Results 1 – 1 of 1) sorted by relevance
30 real*8 u_max,u_max_all local42 call MPI_ALLREDUCE( u_max, u_max_all, 1,46 write(*,556)'u_max_all=',u_max_all ! find the largest x velocity at inlet51 BC(inlf(:),3) = y(inlf(:),1)/u_max_all*inletVelX ! set and scale x velocity