Skip to content

Commit

Permalink
Merge pull request loganoz#99 from loganoz/VTKHDF
Browse files Browse the repository at this point in the history
New feature converting hsol to VTKHDF files
  • Loading branch information
loganoz authored Sep 27, 2022
2 parents d881731 + 6527c18 commit 8013f1e
Show file tree
Hide file tree
Showing 9 changed files with 641 additions and 12 deletions.
6 changes: 4 additions & 2 deletions .gitignore
Original file line number Diff line number Diff line change
Expand Up @@ -51,10 +51,12 @@ Tests/TestMeshes/CylinderNSpol3_v2.mesh
*.nssa
*.ins
bin/
Makefile*
!./Makefile.in
Makefile
Makefile.template
!Solver/src/**/Makefile
!utils/ProblemFile/Makefile
utils/modulefile/horses/dev
Solver/include/
.local.vimrc
.vscode/
.fortls
1 change: 1 addition & 0 deletions Solver/src/addons/horses2tecplot/Makefile
Original file line number Diff line number Diff line change
Expand Up @@ -31,6 +31,7 @@ OBJS= Storage\
ProlongMeshAndSolution\
Mesh2Plt\
Solution2Plt\
Solution2VtkHdf\
Stats2Plt\
main \

Expand Down
18 changes: 18 additions & 0 deletions Solver/src/addons/horses2tecplot/OutputVariables.f90
Original file line number Diff line number Diff line change
Expand Up @@ -23,6 +23,7 @@ module OutputVariables
private
public no_of_outputVariables, askedVariables
public getOutputVariables, ComputeOutputVariables, getOutputVariablesLabel
public getOutputVariablesList
public outScale, hasVariablesFlag, Lreference

integer, parameter :: STR_VAR_LEN = 16
Expand Down Expand Up @@ -746,6 +747,23 @@ subroutine ComputeOutputVariables(N, e, output, refs, hasGradients, hasStats)

end subroutine ComputeOutputVariables

subroutine getOutputVariablesList(list)
implicit none
character(len=STRING_CONSTANT_LENGTH), allocatable, intent(out) :: list(:)
!
! ---------------
! Local variables
! ---------------
!
integer :: iVar

allocate(list(no_of_outputVariables))
do iVar = 1, no_of_outputVariables
list(iVar) = trim(variableNames(outputVariableNames(iVar)))
end do

end subroutine getOutputVariablesList

character(len=1024) function getOutputVariablesLabel()
implicit none
!
Expand Down
Loading

0 comments on commit 8013f1e

Please sign in to comment.