Searched refs:lpmass (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | vorticity.f | 94 real*8 lpmass(npro,nshl) local
113 lpmass=0
151 lpmass(:,n) = lpmass(:,n) + WdetJ(:)*shp(:,n)*shp(:,n)
181 lpmass(:,n)=lpmass(:,n)*volum(:)/alph2(:)
185 call local(lpmassG,lpmass,ien,1,'scatter ')
|