Searched refs:otwn (Results 1 – 4 of 4) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | settauw.f | 30 if ( otwn(nodw).ne.nodw ) then ! wall node check
32 ull(:)=velbar(ifath(otwn(nodw)),2:4) ! recall old #ing
35 ull(:)=y(otwn(nodw),1:3)
46 & (x(otwn(nodw),1)-x(nodw,1))*wnrm(nodw,1)
47 & +(x(otwn(nodw),2)-x(nodw,2))*wnrm(nodw,2)
48 & +(x(otwn(nodw),3)-x(nodw,3))*wnrm(nodw,3)
63 ull(:)=y(otwn(nodw),1:3)
|
| H A D | genbc.f | 751 allocate( otwn(nshg) )
756 otwn(nod)=nod
792 otwn(ienb(nod)) = ienb(can)
802 if((otwn(nn).eq.nn).and.(nsurf(nn).ne.0)) then ! if a node on a
817 otwn(nn)=can
|
| H A D | turbsa.f | 10 integer, allocatable :: otwn(:) variable
|
| H A D | proces.f | 253 deallocate(otwn)
|