[cig-commits] [commit] master: export stress in the dip direction (rake=90 degrees). (f642e54)

[cig_noreply at geodynamics.org]

Repository : ssh://shell.geodynamics.org/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/924da9babd73caf2a86a6e5fcaa2eb85d620c27b...f642e5469b9fd9a355d4162fa424d663d2407f59

>---------------------------------------------------------------

commit f642e5469b9fd9a355d4162fa424d663d2407f59
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Sat Apr 5 23:56:36 2014 +0800

    export stress in the dip direction (rake=90 degrees).


>---------------------------------------------------------------

f642e5469b9fd9a355d4162fa424d663d2407f59
 src/export.f90 | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/export.f90 b/src/export.f90
index 618dbbf..5ca56a0 100644
--- a/src/export.f90
+++ b/src/export.f90
@@ -1781,9 +1781,9 @@ END SUBROUTINE exportcreep_vtk
        sdip=sin(dip)
  
        ! surface normal vector components
-       n(1)=+cdip*cstrike
-       n(2)=-cdip*sstrike
-       n(3)=-sdip
+       n(1)=-cdip*cstrike
+       n(2)=+cdip*sstrike
+       n(3)=+sdip
 
        ! strike-slip unit direction
        s(1)=sstrike
@@ -1791,9 +1791,9 @@ END SUBROUTINE exportcreep_vtk
        s(3)=0._8
 
        ! dip-slip unit direction
-       d(1)=+cstrike*sdip
-       d(2)=-sstrike*sdip
-       d(3)=+cdip
+       d(1)=-cstrike*sdip
+       d(2)=+sstrike*sdip
+       d(3)=-cdip
 
        ! traction vector
        t=lsig .tdot. n
@@ -1922,9 +1922,9 @@ END SUBROUTINE exportcreep_vtk
        sdip=sin(dip)
  
        ! surface normal vector components
-       n(1)=+cdip*cstrike
-       n(2)=-cdip*sstrike
-       n(3)=-sdip
+       n(1)=-cdip*cstrike
+       n(2)=+cdip*sstrike
+       n(3)=+sdip
 
        ! strike-slip unit direction
        s(1)=sstrike
@@ -1932,9 +1932,9 @@ END SUBROUTINE exportcreep_vtk
        s(3)=0._8
 
        ! dip-slip unit direction
-       d(1)=+cstrike*sdip
-       d(2)=-sstrike*sdip
-       d(3)=+cdip
+       d(1)=-cstrike*sdip
+       d(2)=+sstrike*sdip
+       d(3)=-cdip
 
        ! traction vector
        t=lsig .tdot. n