Home
last modified time | relevance | path

Searched refs:nwall (Results 1 – 2 of 2) sorted by relevance

/phasta/phSolver/compressible/
H A Dd2wall.f18 & nwall(numpe), idisp(numpe)
73 call MPI_ALLGATHER(nwalli,1,MPI_INTEGER,nwall,1,
77 nwallt=nwallt+nwall(j)
80 nwall=nwalli
90 idisp(j)=idisp(j-1)+nwall(j-1)
95 & MPI_DOUBLE_PRECISION,xw(:,j,k),nwall,idisp,
/phasta/phSolver/common/
H A Dturbsa.f50 integer nwall(numpe), idisp(numpe), npwmark(numnp) local
130 call MPI_ALLGATHER(nwalli,1,MPI_INTEGER,nwall,1,
135 nwallt=nwallt+nwall(j)
139 nwall=nwalli
171 idisp(j)=idisp(j-1)+nwall(j-1) ! see diagram above
175 & MPI_DOUBLE_PRECISION,xw(:,k),nwall,idisp,