Searched refs:eNorm (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
71 eNorm(1)=aedg(2)*bedg(3)-aedg(3)*bedg(2)
72 eNorm(2)=aedg(3)*bedg(1)-aedg(1)*bedg(3)
73 eNorm(3)=aedg(1)*bedg(2)-aedg(2)*bedg(1)
75 call addElemNormal(wNorm, eNorm, nn)
157 subroutine addElemNormal(wNorm, eNorm, nn) argument
164 real*8 :: eNorm(nsd), en(nsd), wn(nsd) local
172 wNorm(nn,:) = eNorm(:)
177 mag=(eNorm(1)**2+eNorm(2)**2+eNorm(3)**2)**0.5
178 en(:)=eNorm(:)/mag
[all …]
|