[cig-commits] [commit] master: fix a memory leak problem in viscouseigenstress (8d65de3)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Apr 10 03:02:46 PDT 2014
Repository : ssh://geoshell/relax
On branch : master
Link : https://github.com/geodynamics/relax/compare/f58c3e4a3b537ce548f0dc9b6301d68585ba7587...64bc932cf611ccf4683972590830ed18b974c6e9
>---------------------------------------------------------------
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
More information about the CIG-COMMITS
mailing list