Searched refs:strain (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 97 real*8, allocatable, dimension(:,:) :: ybar, strain, vorticity local
176 allocate(strain(nshg,6))
531 & call computeVort( vorticity, GradV,strain)
757 deallocate(strain,vorticity)
1726 subroutine computeVort( vorticity, GradV,strain) argument
1729 real*8 gradV(nshg,nsdsq), strain(nshg,6), vorticity(nshg,5) local
1739 strain(:,1) = GradV(:,1) !S11
1740 strain(:,2) = 0.5*(GradV(:,2)+GradV(:,4)) !S12
1741 strain(:,3) = 0.5*(GradV(:,3)+GradV(:,7)) !S13
1742 strain(:,4) = GradV(:,5) !S22
[all …]
|