[cig-commits] [commit] master: restore export of eigenstrain at all time steps (df25c06)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/abe7c5c5c3abdab2fb00869773cfb4d0be6f4f49...df25c068e3cd944d6d5bdf2740789b011abba62b

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

commit df25c068e3cd944d6d5bdf2740789b011abba62b
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Tue Nov 5 18:47:21 2013 +0800

    restore export of eigenstrain at all time steps


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

df25c068e3cd944d6d5bdf2740789b011abba62b
 examples/tutorials/run2.sh | 4 +++-
 src/relax.f90              | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/examples/tutorials/run2.sh b/examples/tutorials/run2.sh
index 967ca09..6fb73e8 100755
--- a/examples/tutorials/run2.sh
+++ b/examples/tutorials/run2.sh
@@ -54,7 +54,9 @@ $WDIR
 # observation planes are arbitrary planes where the inelastic strain rate
 # is sampled for output.
 # number of observation planes
-0
+1
+# n x1 x2 x3 length width strike dip
+  1  0 -3  0      6     5     90  90
 # observation points are GPS points, for example, where time series of
 # displacement are output.
 # number of observation points
diff --git a/src/relax.f90 b/src/relax.f90
index 4464e5e..470ee49 100644
--- a/src/relax.f90
+++ b/src/relax.f90
@@ -775,7 +775,7 @@ PROGRAM relax
            END IF
         END IF
 #endif
-        !CALL exporteigenstrain(gamma,in%nop,in%op,in%x0,in%y0,in%dx1,in%dx2,in%dx3,in%sx1,in%sx2,in%sx3/2,in%wdir,oi)
+        CALL exporteigenstrain(gamma,in%nop,in%op,in%x0,in%y0,in%dx1,in%dx2,in%dx3,in%sx1,in%sx2,in%sx3/2,in%wdir,oi)
 #ifdef GRD
         IF (in%isoutputgrd) THEN
            IF (in%isoutputrelax) THEN