[cig-commits] [commit] master: fix the stress convention for exportgmt_rfaults_stress and exportgmt_rfaults_traction. (5ce9b49)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/f824f9365a21ba8760de2e40f714706247f2a84e...5dc0660d5364cadb5bdb50a243c0bbbcfedad4e9

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

commit 5ce9b490277a905c6fc0b3637840109bd4a16143
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Fri Apr 25 18:10:36 2014 +0800

    fix the stress convention for exportgmt_rfaults_stress and exportgmt_rfaults_traction.


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

5ce9b490277a905c6fc0b3637840109bd4a16143
 src/export.f90 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/export.f90 b/src/export.f90
index 91f52d3..9e89675 100644
--- a/src/export.f90
+++ b/src/export.f90
@@ -1770,9 +1770,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
@@ -1891,9 +1891,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