[cig-commits] [commit] master: fix the stress convention for exportgmt_rfaults_stress and exportgmt_rfaults_traction. (5ce9b49)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Fri Apr 25 03:10:57 PDT 2014
Repository : ssh://geoshell/relax
On branch : master
Link : https://github.com/geodynamics/relax/compare/5019f27cb2d11f776079b59103a36fa690a5d302...5ce9b490277a905c6fc0b3637840109bd4a16143
>---------------------------------------------------------------
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
More information about the CIG-COMMITS
mailing list