[cig-commits] [commit] master: make the vtk output similar for coseismic and postseismic deformation. (7e45108)

cig_noreply at geodynamics.org cig_noreply at geodynamics.org
Wed Dec 3 05:03:21 PST 2014


Repository : https://github.com/geodynamics/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/51ebb25cbebcdfe57bbf2a849e241709fc823937...7e45108163c32825a865acfcd3c8fa5541eefdcf

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

commit 7e45108163c32825a865acfcd3c8fa5541eefdcf
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Wed Dec 3 21:02:50 2014 +0800

    make the vtk output similar for coseismic and postseismic deformation.


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

7e45108163c32825a865acfcd3c8fa5541eefdcf
 src/relax.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/relax.f90 b/src/relax.f90
index f9d5bd4..4b80fc7 100644
--- a/src/relax.f90
+++ b/src/relax.f90
@@ -386,7 +386,7 @@ PROGRAM relax
      title="coseismic displacement vector field"//char(0)
      name="displacement"//char(0)
      CALL exportvtk_vectors_legacy(u1,u2,u3,in%sx1,in%sx2,in%sx3/2,in%dx1,in%dx2,in%dx3, &
-                                   4,4,4,filename,title,name)
+                                   4,4,8,filename,title,name)
      !CALL exportvtk_vectors_slice(u1,u2,u3,in%sx1,in%sx2,in%sx3/2,in%dx1,in%dx2,in%dx3,in%oz,8,8,filename)
   END IF
   IF (in%isoutputvtkrelax) THEN
@@ -394,7 +394,7 @@ PROGRAM relax
      title="postseismic displacement vector field"//char(0)
      name="displacement"//char(0)
      CALL exportvtk_vectors_legacy(u1r,u2r,u3r,in%sx1,in%sx2,in%sx3/2,in%dx1,in%dx2,in%dx3, &
-                                   4,4,4,filename,title,name)
+                                   4,4,8,filename,title,name)
   END IF
 #endif
   IF (ALLOCATED(in%ptsname)) THEN



More information about the CIG-COMMITS mailing list