Searched refs:Qini (Results 1 – 1 of 1) sorted by relevance
1245 real*8 Qini(0:MAXSURF) !initial flow rate local1254 call GetFlowQ(Qini,VelOnly,srfIdList,numSrfs) !get initial flow1255 QHistRCR(1,1:numSrfs)=Qini(1:numSrfs) !initialize QHistRCR1262 Qini(1:numSrfs)=QHistRCR(1,1:numSrfs)1267 & - ValueListRCR(1,:)*Qini(1:numSrfs)-PdistIni(1:numSrfs)