[cig-commits] [commit] master: fix a memory leak problem in viscouseigenstress (8d65de3)

[cig_noreply at geodynamics.org]

Repository : ssh://shell.geodynamics.org/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/88a92d886bfa5bc09f9d672917085eee1635d792...8d65de398a94ddbc15ba14a685392746f1bc7afc

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

commit 8d65de398a94ddbc15ba14a685392746f1bc7afc
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Sun Mar 23 02:14:41 2014 +0800

    fix a memory leak problem in viscouseigenstress


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

8d65de398a94ddbc15ba14a685392746f1bc7afc
 src/viscoelastic3d.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/viscoelastic3d.f90 b/src/viscoelastic3d.f90
index 1734b06..d557673 100644
--- a/src/viscoelastic3d.f90
+++ b/src/viscoelastic3d.f90
@@ -128,11 +128,10 @@ CONTAINS
     TYPE(TENSOR), INTENT(IN), DIMENSION(sx1,sx2,sx3) :: sig
     TYPE(TENSOR), INTENT(OUT), DIMENSION(sx1,sx2,sx3) :: moment
     REAL*8, OPTIONAL, INTENT(INOUT) :: maxwelltime
+    REAL*4, DIMENSION(sx1,sx2,sx3), INTENT(IN), OPTIONAL :: dgammadot0
 #ifdef ALIGN_DATA
-    REAL*4, DIMENSION(sx1+2,sx2,sx3), INTENT(IN), OPTIONAL :: dgammadot0
     REAL*4, DIMENSION(sx1+2,sx2,sx3), INTENT(OUT), OPTIONAL :: gamma
 #else
-    REAL*4, DIMENSION(sx1,sx2,sx3), INTENT(IN), OPTIONAL :: dgammadot0
     REAL*4, DIMENSION(sx1,sx2,sx3), INTENT(OUT), OPTIONAL :: gamma
 #endif