Searched refs:wNorm (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | mod_wallData.f90 | 48 allocate(wNorm(nshg,nsd))
49 wNorm = 0
75 call addElemNormal(wNorm, eNorm, nn)
87 wNormTmp = wNorm
89 wNormTmp = wNormTmp - wNorm !undo the addition in commu to just
94 call addElemNormal(wNorm, wn, i) !an interior node, zero gets
105 if(numpe.gt.1) call commu(wNorm(:,:),ilwork,3,'out')
108 wn(:) = wNorm(nn,:)
111 if(mag > 0) wNorm(nn,:) = wn(:)/mag
116 wn(:)=wNorm(nn,:)
[all …]
|