Searched refs:numSrfs (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 1064 subroutine UpdHistConv(y,nsrfIdList,numSrfs) argument
1071 integer nsrfIdList(0:MAXSURF), numSrfs local
1079 call GetFlowQ(NewQ,y,nsrfIdList,numSrfs) !new flow at time n+1
1085 QHistImp(j,1:numSrfs)=QHistImp(j+1,1:numSrfs)
1087 QHistImp(ntimeptpT+1,1:numSrfs) = NewQ(1:numSrfs)
1115 write(816,*) (QHistImp(j,n),n=1, numSrfs)
1124 write(8166,*) (QHistImp(j,n),n=1, numSrfs)
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)
[all …]
|
| H A D | elmgmr.f | 594 subroutine GetFlowQ (qsurf,y,srfIdList,numSrfs) argument
603 integer numSrfs, irankCoupled, srfIdList(0:MAXSURF) local
611 if(numSrfs.gt.zero) then
612 do k = 1,numSrfs
|