[cig-commits] [commit] master: export traction vectors to vtk (24d6b5c)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/f4efa21dadacf95c876edaed36ac9f157814520d...24d6b5c21fe72c085a3e8dfb56f1a445d0f85490

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

commit 24d6b5c21fe72c085a3e8dfb56f1a445d0f85490
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Thu Apr 24 11:34:56 2014 +0800

    export traction vectors to vtk


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

24d6b5c21fe72c085a3e8dfb56f1a445d0f85490
 src/export.f90 | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/export.f90 b/src/export.f90
index 96c5264..42ee987 100644
--- a/src/export.f90
+++ b/src/export.f90
@@ -1999,6 +1999,20 @@ END SUBROUTINE exportcreep_vtk
        WRITE (15,'("        </DataArray>")')
 
        WRITE (15,'("        <DataArray type=",a,"Float32",a, &
+                               & " Name=",a,"traction vector",a, &
+                               & " NumberOfComponents=",a,"3",a, &
+                               & " format=",a,"ascii",a,">")'), q,q,q,q,q,q,q,q
+       WRITE (15,'(3ES11.2)'), t(1),t(2),t(3)
+       WRITE (15,'("        </DataArray>")')
+
+       WRITE (15,'("        <DataArray type=",a,"Float32",a, &
+                               & " Name=",a,"shear traction vector",a, &
+                               & " NumberOfComponents=",a,"3",a, &
+                               & " format=",a,"ascii",a,">")'), q,q,q,q,q,q,q,q
+       WRITE (15,'(ES11.2)'), ts(1),ts(2),ts(3)
+       WRITE (15,'("        </DataArray>")')
+
+       WRITE (15,'("        <DataArray type=",a,"Float32",a, &
                                & " Name=",a,"shear stress",a, &
                                & " NumberOfComponents=",a,"1",a, &
                                & " format=",a,"ascii",a,">")'), q,q,q,q,q,q,q,q