Searched refs:wn (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | mod_wallData.f90 | 34 real*8 eNorm(nsd),en(nsd),wn(nsd),aedg(nsd),bedg(nsd) local
93 wn(:) = wNormTmp(i,:) !processor contribution. If this is
94 call addElemNormal(wNorm, wn, i) !an interior node, zero gets
108 wn(:) = wNorm(nn,:)
109 mag = (wn(1)**2+wn(2)**2+wn(3)**2)**0.5
111 if(mag > 0) wNorm(nn,:) = wn(:)/mag
116 wn(:)=wNorm(nn,:)
117 mag=(wn(1)**2+wn(2)**2+wn(3)**2)**0.5
120 & .and. (dabs(wn(3)/mag) .lt.0.99)) then
127 & ", n = (", wn(1), wn(2), wn(3), ")"
[all …]
|