Searched refs:idflow (Results 1 – 5 of 5) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | qpbc.f | 45 idflow = (nflow-1)*nsd
51 qres(i,1:idflow) = qres(i,1:idflow) + qres(j,1:idflow)
60 qres(j,1:idflow) = qres(i,1:idflow)
72 idflow=(nflow-1)*nsd
76 tmp = sqrt(qres(:,idflow+1)**2
77 & + qres(:,idflow+2)**2
78 & + qres(:,idflow+3)**2)
85 qres(:,idflow+i) = tmp*qres(:,idflow+i)
|
| /phasta/phSolver/compressible/ |
| H A D | e3q.f | 51 integer idflow local
96 idflow = 0
98 idflow = idflow+12
218 ql(:,i,idflow+1) = ql(:,i,idflow+1)
220 ql(:,i,idflow+2) = ql(:,i,idflow+2)
222 ql(:,i,idflow+3) = ql(:,i,idflow+3)
|
| H A D | e3ivar.f | 362 idflow = 0
375 idflow = idflow + 4
400 divqi(:,idflow+1) = divqi(:,idflow+1)
438 sforce(:,1) = -(1.0/weber(:)) * divqi(:,idflow+1) !x-direction
440 sforce(:,2) = -(1.0/weber(:)) * divqi(:,idflow+1) !y-direction
442 sforce(:,3) = -(1.0/weber(:)) * divqi(:,idflow+1) !z-direction
|
| /phasta/phSolver/incompressible/ |
| H A D | e3q.f | 48 integer idflow local
78 idflow = 9 ! we ALWAYS save space for tau_{ij} in q_i
176 ql(:,i,idflow+1) = ql(:,i,idflow+1)
178 ql(:,i,idflow+2) = ql(:,i,idflow+2)
180 ql(:,i,idflow+3) = ql(:,i,idflow+3)
|
| H A D | e3ivar.f | 170 idflow = 3
196 divqi(:,idflow+1) = divqi(:,idflow+1)
233 sforce(:,1) = -(1.0/weber(:)) * divqi(:,idflow+1) !x-direction
235 sforce(:,2) = -(1.0/weber(:)) * divqi(:,idflow+1) !y-direction
237 sforce(:,3) = -(1.0/weber(:)) * divqi(:,idflow+1) !z-direction
|