Skip to content
Snippets Groups Projects
Commit 0033175a authored by Dave Whipp's avatar Dave Whipp
Browse files

Modified e2d output to be sqrt of 2nd invariant

parent a5b7f8b3
No related branches found
No related tags found
No related merge requests found
......@@ -162,7 +162,9 @@ do i=1+iproc,nleaves,nproc
J2d=second_invariant(exx,eyy,ezz,exy,eyz,ezx)
J3d=third_invariant (exx,eyy,ezz,exy,eyz,ezx)
e2dtemp(i)=J2d
!e2dtemp(i)=J2d
! Set e2d as effective stress (sqrt of 2nd invariant) - dwhipp 12/09
e2dtemp(i)=sqrt(J2d)
if (J2d/=0.d0) lodetemp(i)=lode_angle (J2d,J3d)/pi
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment