[cig-commits] [commit] master: add depth information in .dat stress change output (5019f27)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/99c95fb11bdd3448888f349ba2a0c5dd712b1e71...5019f27cb2d11f776079b59103a36fa690a5d302

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

commit 5019f27cb2d11f776079b59103a36fa690a5d302
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Thu Apr 24 13:48:36 2014 +0800

    add depth information in .dat stress change output


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

5019f27cb2d11f776079b59103a36fa690a5d302
 src/export.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/export.f90 b/src/export.f90
index d43d6a8..91f52d3 100644
--- a/src/export.f90
+++ b/src/export.f90
@@ -1793,7 +1793,7 @@ END SUBROUTINE exportcreep_vtk
        ! shear traction
        ts=t-taun*n
 
-       WRITE (15,'(5ES11.2)') x2,x1,ts(2),ts(1)
+       WRITE (15,'(6ES11.2)') x2,x1,-x3,ts(2),ts(1),-ts(3)
 
     END DO