Searched refs:srfIdList (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 1237 subroutine calcRCRic(y,srfIdList,numSrfs) argument
1243 integer srfIdList(0:MAXSURF), numSrfs, irankCoupled local
1254 call GetFlowQ(Qini,VelOnly,srfIdList,numSrfs) !get initial flow
1257 call integrScalar(Pini,POnly,srfIdList,numSrfs) !get initial pressure integral
1259 call integrScalar(CoupleArea,POnly,srfIdList,numSrfs) !get surf area
1272 subroutine integrScalar(scalInt,scal,srfIdList,numSrfs) argument
1279 integer srfIdList(0:MAXSURF), numSrfs, irankCoupled, i, k local
1287 if (srfIdList(k).eq.ndsurf(i)) then
|
| H A D | elmgmr.f | 594 subroutine GetFlowQ (qsurf,y,srfIdList,numSrfs) argument
603 integer numSrfs, irankCoupled, srfIdList(0:MAXSURF) local
614 if (srfIdList(k).eq.ndsurf(i)) then
|