Searched refs:vortG (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | vorticity.f | 1 subroutine vortGLB (y, x, shp, shgl, ilwork, vortG) argument
14 …real*8 vortG(nshg,4) ! The first three components are vorticity vector, the 4th one is Q criterio… local
19 vortG=0
68 vortG(:,i)=vortIntG(:,i)/lpmassG(:)
|
| H A D | itrdrv.f | 62 real*8, allocatable, dimension(:,:) :: vortG local
214 allocate(vortG(nshg, 4))
215 call vortGLB(yold, x, shp, shgl, ilwork, vortG)
216 …vortmax=maxval(abs(vortG(:,4))) !column 4 is the magnitude of the shear tensor - should actually …
233 if(abs(vortG(i,4)).ge.vortmax*0.01) yold(i,6)=evis_IC_BC
238 deallocate(vortG)
|