Home
last modified time | relevance | path

Searched refs:QHistRCR (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/common/
H A Dgenini.f110 allocate (QHistRCR(nstep(1)+lstep+1,numRCRSrfs)) !for flow history
111 QHistRCR = zero
122 read(816,*) (QHistRCR(j,n),n=1,numRCRSrfs) !read flow history
H A Dbctint.f53 real*8, allocatable :: QHistRCR(:,:), HopRCR(:) !calc variable
/phasta/phSolver/incompressible/
H A Ditrdrv.f334 call pHist(poldRCR,QHistRCR,RCRConvCoef,nsteprcr,
1134 QHistRCR(lstep+1,1:numSrfs) = NewQ(1:numSrfs)
1146 write(816,*) j, (QHistRCR(j,n),n=1,numSrfs) ! read from file of previous run
1149 write(816,*) lstep+1, (QHistRCR(lstep+1,n),n=1, numSrfs)
1160 write(8166,*) (QHistRCR(j,n),n=1, numSrfs)
1255 QHistRCR(1,1:numSrfs)=Qini(1:numSrfs) !initialize QHistRCR
1262 Qini(1:numSrfs)=QHistRCR(1,1:numSrfs)