Searched refs:Mach (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | vorticity.f | 198 real*8 Mach(nshg),PresRec(nshg),PresCoeff(nshg),velocity(nshg,3) local
207 Mach(:)=sqrt(y(:,1)**2+y(:,2)**2+y(:,3)**2)/sqrt(1.4*287*y(:,5))
208 PresRec(:)=y(:,4)*(1+0.2*Mach(:)**2)**3.5/Ptotal_contra
212 call write_field(myrank,'a'//char(0),'M'//char(0),1,Mach,
|