| /phasta/phSolver/compressible/ |
| H A D | asbmfg.f | 2 & ienb, materb, iBCB, BCB,
19 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB),
54 call e3b (ycl, ycl, iBCB, BCB, shpb, shglb,
69 & ienb, materb, iBCB,
86 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB),
112 call e3bSclr (ycl, iBCB, BCB,
|
| H A D | e3b.f | 1 subroutine e3b (yl, ycl, iBCB, BCB, shpb, shglb, argument
56 dimension yl(npro,nshl,nflow), iBCB(npro,ndiBCB),
152 where (.not.btest(iBCB(:,1),0) )
163 where (.not.btest(iBCB(:,1),1)) p = pres
211 where (.not.btest(iBCB(:,1),2) )
228 where (.not.btest(iBCB(:,1),3) ) Fh5 = heat
331 iface = abs(iBCB(iel,2))
356 where (.not.btest(iBCB(:,1),0) )
388 subroutine e3bSclr (ycl, iBCB, BCB, argument
430 dimension ycl(npro,nshl,ndof), iBCB(npro,ndiBCB),
[all …]
|
| H A D | asbres.f | 2 & ienb, materb, iBCB, BCB, argument
19 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB),
43 call e3b (yl, ycl, iBCB, BCB, shpb, shglb,
|
| H A D | asbflx.f | 2 & ienb, materb, iBCB, BCB, argument
19 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB),
53 call e3b (ycl, ycl, iBCB, BCB, shpb, shglb,
|
| /phasta/phSolver/incompressible/ |
| H A D | e3b.f | 1 subroutine e3b (ul, yl, acl, iBCB, BCB, argument
54 dimension yl(npro,nshl,ndof), iBCB(npro,ndiBCB),
144 iface = abs(iBCB(iel,2))
172 if (btest(iBCB(iel,1),0)) then
183 if (btest(iBCB(iel,1),1)) then
194 if (btest(iBCB(iel,1),2)) then
212 if (btest(iBCB(iel,1),4)) then
236 if (nsrflist(iBCB(iel,2)) .ne. 0) then
321 where (nsrflist(iBCB(:,2)).eq.1)
374 subroutine e3bSclr (yl, iBCB, BCB, shpb, shglb, argument
[all …]
|
| H A D | asbmfg.f | 3 & ienb, materb, iBCB, BCB, argument
24 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB),
64 call e3b (ul, yl, acl, iBCB, BCB,
88 & ienb, materb, iBCB, BCB, argument
97 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB),
122 call e3bSclr (yl, iBCB, BCB, shpb, shglb,
|
| H A D | asbflx.f | 3 & shglb, ienb, iBCB, argument
23 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB),
62 call e3b (ul, yl, acl, iBCB, BCB,
|
| H A D | bflux.f | 410 subroutine flxNode(ienb, iBCB, flg) argument
418 integer flg(nshg), iBCB(npro,ndiBCB), local
427 if (nsrflist(iBCB(i,2)).eq.1) then
|
| /phasta/phSolver/common/ |
| H A D | asbnabi.f | 2 & ienb, iBCB) argument
22 & iBCB(npro,ndiBCB)
106 if (.not.btest(iBCB(iel,1),1)) then
147 if (iBCB(iel,2) .ne. 0) then
148 iface = iBCB(iel,2)
160 & ienb, iBCB) argument
180 & iBCB(npro,ndiBCB)
262 if (.not.btest(iBCB(iel,1),1)) then
299 if (iBCB(iel,2) .ne. 0) then
300 iface = iBCB(iel,2)
|
| H A D | ibcupdate.f | 1 subroutine iBCupdate(iBCpart, ienb, iBCB) argument
11 dimension iBCpart(nshg), iBCB(npro,ndiBCB),
15 if(btest(iBCB(iel,1),4)) then ! turbulence wall
|
| H A D | gensvb.f | 2 & ienb, iBCB, BCB, materb) argument
30 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB),
41 iBCB = iBCBtmp
|
| H A D | dtn.f | 106 subroutine dtnl(iBC,BC,ienb,iBCB,BCB) argument
108 integer ienb(npro,nshl), iBC(nshg),iBCB(npro,ndiBCB) local
127 if(iBCB(i,2).lt.0) then !this is a face with dtn
|
| H A D | common.h | 309 c miBCB (MAXBLK) : pointer to iBCB array
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat.h | 266 c miBCB (MAXBLK) : pointer to iBCB array
|
| /phasta/M2N/include/ |
| H A D | commonM2N.h | 267 c miBCB (MAXBLK) : pointer to iBCB array
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd.h | 266 c miBCB (MAXBLK) : pointer to iBCB array
|