Searched refs:POnly (Results 1 – 1 of 1) sorted by relevance
1248 real*8 VelOnly(nshg,3), POnly(nshg) local1256 POnly(:)=y(:,4) ! pressure1257 call integrScalar(Pini,POnly,srfIdList,numSrfs) !get initial pressure integral1258 POnly(:)=one ! one to get area1259 call integrScalar(CoupleArea,POnly,srfIdList,numSrfs) !get surf area