Searched refs:Pini (Results 1 – 1 of 1) sorted by relevance
1247 real*8 Pini(0:MAXSURF),CoupleArea(0:MAXSURF) ! initial pressure local1257 call integrScalar(Pini,POnly,srfIdList,numSrfs) !get initial pressure integral1260 Pini(1:numSrfs) = Pini(1:numSrfs)/CoupleArea(1:numSrfs)1263 Pini(1:numSrfs)=zero ! hack1266 RCRic(1:numSrfs) = Pini(1:numSrfs)