From 6d88fb95cd707f5279602dee705364a9fc447b8d Mon Sep 17 00:00:00 2001 From: Shreyas Ananthan Date: Thu, 20 Apr 2017 08:00:54 -0400 Subject: [PATCH] Change VTK file name template to remove `t` prefix in timestamps. Fixes #16 --- modules-local/fast-library/src/FAST_Subs.f90 | 2 +- modules-local/nwtc-library/src/ModMesh.f90 | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/modules-local/fast-library/src/FAST_Subs.f90 b/modules-local/fast-library/src/FAST_Subs.f90 index 9007b299bf..ab090a9cff 100644 --- a/modules-local/fast-library/src/FAST_Subs.f90 +++ b/modules-local/fast-library/src/FAST_Subs.f90 @@ -5192,7 +5192,7 @@ SUBROUTINE WrVTK_WaveElev(t_global, p_FAST, y_FAST, HD) !................................................................. ! PolyData (.vtp) � Serial vtkPolyData (unstructured) file - FileName = TRIM(p_FAST%OutFileRoot)//'.WaveSurface.t'//TRIM(Num2LStr(y_FAST%VTK_count))//'.vtp' + FileName = TRIM(p_FAST%OutFileRoot)//'.WaveSurface.'//TRIM(Num2LStr(y_FAST%VTK_count))//'.vtp' call WrVTK_header( FileName, NumberOfPoints, NumberOfLines, NumberOfPolys, Un, ErrStat2, ErrMsg2 ) if (ErrStat2 >= AbortErrLev) return diff --git a/modules-local/nwtc-library/src/ModMesh.f90 b/modules-local/nwtc-library/src/ModMesh.f90 index e8a078638b..f58802549d 100644 --- a/modules-local/nwtc-library/src/ModMesh.f90 +++ b/modules-local/nwtc-library/src/ModMesh.f90 @@ -319,7 +319,7 @@ SUBROUTINE MeshWrVTK ( RefPoint, M, FileRootName, VTKcount, OutputFieldData, Err !................................................................. ! PolyData (.vtp) — Serial vtkPolyData (unstructured) file - FileName = TRIM(FileRootName)//'.t'//TRIM(Num2LStr(VTKcount))//'.vtp' + FileName = TRIM(FileRootName)//'.'//TRIM(Num2LStr(VTKcount))//'.vtp' call WrVTK_header( trim(FileName), M%Nnodes, M%ElemTable(ELEMENT_LINE2)%nelem, 0, Un, ErrStat2, ErrMsg2 ) call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName) @@ -568,7 +568,7 @@ SUBROUTINE MeshWrVTK_Ln2Surface ( RefPoint, M, FileRootName, VTKcount, OutputFie !................................................................. ! PolyData (.vtp) — Serial vtkPolyData (unstructured) file - FileName = TRIM(FileRootName)//'.t'//TRIM(Num2LStr(VTKcount))//'.vtp' + FileName = TRIM(FileRootName)//'.'//TRIM(Num2LStr(VTKcount))//'.vtp' ! Write a VTP mesh file (Polygonal VTK file) with positions and polygons (surfaces) ! (note alignment of WRITE statements to make sure spaces are lined up in XML file) @@ -759,7 +759,7 @@ SUBROUTINE MeshWrVTK_PointSurface ( RefPoint, M, FileRootName, VTKcount, OutputF !................................................................. ! PolyData (.vtp) — Serial vtkPolyData (unstructured) file - FileName = TRIM(FileRootName)//'.t'//TRIM(Num2LStr(VTKcount))//'.vtp' + FileName = TRIM(FileRootName)//'.'//TRIM(Num2LStr(VTKcount))//'.vtp' ! Write a VTP mesh file (Polygonal VTK file) with positions and polygons (surfaces) ! (note alignment of WRITE statements to make sure spaces are lined up in XML file)