Lines Matching refs:nn
60 nn=ienb(j) !nn is the global index of suction node
62 aedg(:)=x(ienb(j+1),:)-x(nn,:)
63 bedg(:)=x(ienb(j-1),:)-x(nn,:)
65 aedg(:)=x(ienb(j+1),:)-x(nn,:)
66 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
68 aedg(:)=x(ienb(1),:)-x(nn,:)
69 bedg(:)=x(ienb(j-1),:)-x(nn,:)
75 call addElemNormal(wNorm, eNorm, nn)
107 do nn = 1,nshg
108 wn(:) = wNorm(nn,:)
111 if(mag > 0) wNorm(nn,:) = wn(:)/mag
115 do nn=1,nshg ! normalize wNorm
116 wn(:)=wNorm(nn,:)
119 if(((dabs(dabs(x(nn,3))-zwall)).lt.0.000000001d00)
125 & myrank, ", node ", nn,
126 & ", x = (", x(nn,1), x(nn,2), x(nn,3), ")",
132 wn(3)=x(nn,3)
135 wNorm(nn,:)=wn(:)/mag
157 subroutine addElemNormal(wNorm, eNorm, nn) argument
166 integer :: nn local
168 wn(:)=wNorm(nn,:)
172 wNorm(nn,:) = eNorm(:)
186 wNorm(nn,:) = eNorm(:) ! overwrite wNorm
190 wNorm(nn,:)=wNorm(nn,:) + eNorm(:)