[cig-commits] [commit] master: remove output in .vtp format of individual linear and nonlinear weakzones. The geometry of all weak zones are now only in a single file. (5e2235b)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/relax

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

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

commit 5e2235b63719cc7e1dc0cff1a21450d4cd1c5c10
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Sun Apr 6 00:03:32 2014 +0800

    remove output in .vtp format of individual linear and nonlinear weakzones. The geometry of all weak zones are now only in a single file.


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

5e2235b63719cc7e1dc0cff1a21450d4cd1c5c10
 src/input.f90 | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/src/input.f90 b/src/input.f90
index 3c6d3a0..430ef30 100644
--- a/src/input.f90
+++ b/src/input.f90
@@ -587,10 +587,10 @@ CONTAINS
 
 #ifdef VTK
              ! export the ductile zone in VTK format
-             rffilename=trim(in%wdir)//"/weakzone-"//digit//".vtp"
-             CALL exportvtk_brick(in%linearweakzone(k)%x,in%linearweakzone(k)%y,in%linearweakzone(k)%z, &
-                                  in%linearweakzone(k)%length,in%linearweakzone(k)%width,in%linearweakzone(k)%thickness, &
-                                  in%linearweakzone(k)%strike,in%linearweakzone(k)%dip,rffilename)
+             !rffilename=trim(in%wdir)//"/weakzone-"//digit//".vtp"
+             !CALL exportvtk_brick(in%linearweakzone(k)%x,in%linearweakzone(k)%y,in%linearweakzone(k)%z, &
+             !                     in%linearweakzone(k)%length,in%linearweakzone(k)%width,in%linearweakzone(k)%thickness, &
+             !                     in%linearweakzone(k)%strike,in%linearweakzone(k)%dip,rffilename)
 #endif
              ! export the ductile zone in GMT .xy format
              rffilename=trim(in%wdir)//"/weakzone-"//digit//".xy"
@@ -706,15 +706,15 @@ CONTAINS
 
 #ifdef VTK
                   ! export the ductile zone in VTK format
-                  rffilename=trim(in%wdir)//"/weakzone-nl-"//digit//".vtp"
-                  CALL exportvtk_brick(in%nonlinearweakzone(k)%x, &
-                                       in%nonlinearweakzone(k)%y, &
-                                       in%nonlinearweakzone(k)%z, &
-                                       in%nonlinearweakzone(k)%length, &
-                                       in%nonlinearweakzone(k)%width, &
-                                       in%nonlinearweakzone(k)%thickness, &
-                                       in%nonlinearweakzone(k)%strike, &
-                                       in%nonlinearweakzone(k)%dip,rffilename)
+                  !rffilename=trim(in%wdir)//"/weakzone-nl-"//digit//".vtp"
+                  !CALL exportvtk_brick(in%nonlinearweakzone(k)%x, &
+                  !                     in%nonlinearweakzone(k)%y, &
+                  !                     in%nonlinearweakzone(k)%z, &
+                  !                     in%nonlinearweakzone(k)%length, &
+                  !                     in%nonlinearweakzone(k)%width, &
+                  !                     in%nonlinearweakzone(k)%thickness, &
+                  !                     in%nonlinearweakzone(k)%strike, &
+                  !                     in%nonlinearweakzone(k)%dip,rffilename)
 #endif
                   ! export the ductile zone in GMT .xy format
                   rffilename=trim(in%wdir)//"/weakzone-nl-"//digit//".xy"