Searched refs:ndsurf (Results 1 – 7 of 7) sorted by relevance
16 integer, allocatable :: ndsurf(:) variable28 if( allocated(ndsurf) ) then29 deallocate(ndsurf)54 allocate ( ndsurf(nshg) ) 61 ndsurf=0
149 ndsurf(ienb(iel,1:nshlb))=iface 301 ndsurf(ienb(iel,1:nshlb))=iface
25 if(ndsurf(kk).eq.18) then ! this means diaphragm for the Cube Test case37 if(mod(ndsurf(kk)-1,factor) == 0) then 45 if(mod(ndsurf(kk)+1,factor) == 0) then 54 if (ndsurf(kk) == -factor) then 87 if(ndsurf(kk).eq.18) then
614 if (srfIdList(k).eq.ndsurf(i)) then688 if (nsrflistResist(k).eq.ndsurf(i)) then 719 if (nsrflistImp(k).eq.ndsurf(i)) then 749 if (nsrflistRCR(k).eq.ndsurf(i)) then
73 if (nsrflistResist(k).eq.ndsurf(n)) then83 if (nsrflistImp(k).eq.ndsurf(n)) then93 if (nsrflistRCR(k).eq.ndsurf(n)) then
1287 if (srfIdList(k).eq.ndsurf(i)) then
22 if(ndsurf(kk).eq.801) then ! this means inflow plane of inlet31 if(ndsurf(kk).eq.801) then ! this means inflow plane of inlet60 if(ndsurf(kk).eq.801) then