| /phasta/phSolver/compressible/ |
| H A D | d2wall.f | 46 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
53 do node = 1, nenbl
56 do node = 1, nenbl
60 xwi(nwalli,nenb+1,:)=xwi(nwalli,nenb+1,:)/nenbl
|
| H A D | asbflx.f | 84 do n = 1, nenbl
90 where (lnflx .ne. nenbl) flhsl(:,n,1) = zero
93 where (lnflx .ne. nenbl) fnrml(:,n,i) = zero
|
| H A D | itrres.f | 115 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
121 if(lcsyst.eq.3) lcsyst=nenbl
|
| H A D | elmgmr.f | 188 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
194 if(lcsyst.eq.3) lcsyst=nenbl
492 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
498 if(lcsyst.eq.3) lcsyst=nenbl
817 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
823 if(lcsyst.eq.3) lcsyst=nenbl
|
| H A D | elmgmrpetsc.f | 224 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
230 if(lcsyst.eq.3) lcsyst=nenbl
449 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
455 if(lcsyst.eq.3) lcsyst=nenbl
|
| H A D | elmmfg.f | 181 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
187 if(lcsyst.eq.3) lcsyst=nenbl
|
| H A D | bflux.f | 246 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
252 if(lcsyst.eq.3) lcsyst=nenbl
|
| /phasta/phSolver/common/ |
| H A D | mod_wallData.f90 | 53 nenbl=lcblkb(6,iblk)
59 do j=1,nenbl ! loop over boundary nodes
61 if(j.ne.1.and.j.ne.nenbl)then
66 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
67 elseif(j.eq.nenbl)then
|
| H A D | findslpw.f | 30 nenbl=lcblkb(6,iblk)
38 do j=1,nenbl
49 if(j.ne.1.and.j.ne.nenbl)then
54 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
55 elseif(j.eq.nenbl)then
|
| H A D | hierarchic.f | 103 do n = 1, nenbl
109 lnode(nenbl+n) = nenbl+1+n
122 do n = 1, nenbl
128 lnode(nenbl+n) = 8+n
145 do n = 1, nenbl
154 lnode(nenbl+n) = 6+n
|
| H A D | findTurbWall.f | 16 nenbl=lcblkb(6,iblk)
23 do j=1,nenbl ! loop elemental vertex
|
| H A D | gensvb.f | 42 do i = 1, nenbl ! This is NOT NSHLB as we are just copying the
49 do i = nenbl+1, nshlb
|
| H A D | sfID2np.f | 28 nenbl=lcblkb(6,iblk) !nenbl = number of element nodes on the boundary local?
38 do j=1,nenbl !loop over nodes in an elmeent
|
| H A D | pvsqbi.f | 81 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
89 if(lcsyst.eq.3) lcsyst=nenbl
|
| H A D | ibcupdate.f | 16 do inode = 1, nenbl
|
| H A D | turbsa.f | 88 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
91 do k=1,nenbl
|
| H A D | genbc.f | 229 nenbl = lcblkb(6,iblk)
253 if(nenbl.eq.3) elnrm(:)=-elnrm(:)
257 do j = 1, nenbl ! loop over elt boundary nodes
764 nenbl = lcblkb(6,iblk)
772 do nod = 1, nenbl ! for each wall node in this belt
774 do can=nenbl+1,nenl ! loop over off-the-wall candidates
|
| H A D | genbkbPosix.f | 54 nenbl =intfromfile(6)
118 lcblkb(6,nelblb) = nenbl
|
| H A D | genbkbSyncIO.f | 95 nenbl =intfromfile(6)
160 lcblkb(6,nelblb) = nenbl
|
| H A D | genbkb.f | 101 nenbl =intfromfile(6)
174 lcblkb(6,nelblb) = nenbl
|
| H A D | genibc.f | 79 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
|
| H A D | settauw.f | 130 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
136 do j = 1, nenbl
|
| /phasta/phSolver/incompressible/ |
| H A D | bflux.f | 72 nenbl = lcblkb(6,iblk)
169 nenbl = lcblkb(6,iblk)
173 if(lcsyst.eq.3) lcsyst=nenbl
|
| H A D | elmgmr.f | 259 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
267 if(lcsyst.eq.3) lcsyst=nenbl
535 nenbl = lcblkb(6,iblk) ! no. of vertices per bdry. face
541 if(lcsyst.eq.3) lcsyst=nenbl
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 278 int nenbl; member
|