[cig-commits] [commit] master: fix the Maxwell time issue for combined rheologies again. (25e9d19)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/f58c3e4a3b537ce548f0dc9b6301d68585ba7587...64bc932cf611ccf4683972590830ed18b974c6e9

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

commit 25e9d1949c2df3f59a0477d62e103d6ebae53525
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Thu Mar 13 18:19:11 2014 +0800

    fix the Maxwell time issue for combined rheologies again.


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

25e9d1949c2df3f59a0477d62e103d6ebae53525
 src/relax.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/relax.f90 b/src/relax.f90
index 0405192..e1682f2 100644
--- a/src/relax.f90
+++ b/src/relax.f90
@@ -543,7 +543,7 @@ PROGRAM relax
         IF (0 .LT. in%nnlwz) THEN
            CALL viscouseigenstress(in%mu,in%nonlinearstruc, &
                 sig,in%sx1,in%sx2,in%sx3/2, &
-                in%dx1,in%dx2,in%dx3,moment,DGAMMADOT0=nonlineardgammadot0,MAXWELLTIME=maxwell(1))
+                in%dx1,in%dx2,in%dx3,moment,DGAMMADOT0=nonlineardgammadot0,MAXWELLTIME=maxwell(2))
         ELSE
            CALL viscouseigenstress(in%mu,in%nonlinearstruc, &
                 sig,in%sx1,in%sx2,in%sx3/2, &