[cig-commits] [commit] master: add depth information in .dat stress change output (5019f27)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Jun 4 20:03:48 PDT 2014
Repository : https://github.com/geodynamics/relax
On branch : master
Link : https://github.com/geodynamics/relax/compare/f824f9365a21ba8760de2e40f714706247f2a84e...5dc0660d5364cadb5bdb50a243c0bbbcfedad4e9
>---------------------------------------------------------------
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
More information about the CIG-COMMITS
mailing list