[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
cig_noreply at geodynamics.org
Thu Apr 10 03:02:58 PDT 2014
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"
More information about the CIG-COMMITS
mailing list