Searched refs:spmasss (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | forces.f | 16 real*8 Forin(5), Forout(5),spmasss local
74 call MPI_ALLREDUCE (flxID(2,isrfIM), spmasss,1,
88 spmasss=flxID(2,isrfIM)
98 & HFlux,spmasss,(ftot(i),i=1,nsd)
102 if((spmasss.ne.0) .and. (matflg(5,1).ne.0))then ! we are doing
116 write(222,*) spmasss
117 fnew=(vel-spmasss/(ro*Atots))*tmp +
|
| /phasta/phSolver/compressible/ |
| H A D | rstat.f | 32 real*8 ftots(3,0:MAXSURF),ftot(3),spmasstot(0:MAXSURF),spmasss local
41 call MPI_ALLREDUCE (flxID(2,isrfIM), spmasss,1,
56 spmasss=flxID(2,isrfIM)
85 & spmasss,(ftot(i),i=1,nsd)
282 real*8 ftots(3,0:MAXSURF),ftot(3),spmasstot(0:MAXSURF),spmasss local
291 call MPI_ALLREDUCE (flxID(2,isrfIM), spmasss,1,
306 spmasss=flxID(2,isrfIM)
331 & spmasss,(ftot(i),i=1,nsd)
|