Searched refs:SFlux (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | forces.f | 179 real*8 SFlux(10),SFluxg(10) local
238 SFlux(:) = flxID(:,isrf) ! Area, Mass Flux, Force 1, Force 2, Force 3, Scalars
241 call MPI_ALLREDUCE (SFlux, SFluxg,10,
243 SFlux = SFluxg
249 write(iunit,"(i7,1p10e20.12)") lstep, SFlux
|