Clean-up!
Trying to reduce warnings and unused variables in the code. This should not be in this branch.
This commit is contained in:
parent
d710cc5e66
commit
bc8f205287
8 changed files with 23 additions and 22 deletions
|
|
@ -108,6 +108,7 @@ MODULE moduleMeshInputGmsh2
|
|||
READ(10, *) totalNumElem
|
||||
|
||||
!Count edges and volume elements
|
||||
numEdges = 0
|
||||
SELECT TYPE(self)
|
||||
TYPE IS(meshParticles)
|
||||
self%numEdges = 0
|
||||
|
|
@ -342,7 +343,7 @@ MODULE moduleMeshInputGmsh2
|
|||
|
||||
DO i = 1, numNodes
|
||||
!Reads the density
|
||||
READ(10, *), e, density(i)
|
||||
READ(10, *) e, density(i)
|
||||
|
||||
END DO
|
||||
|
||||
|
|
@ -353,7 +354,7 @@ MODULE moduleMeshInputGmsh2
|
|||
|
||||
DO i = 1, numNodes
|
||||
!Reads the velocity
|
||||
READ(10, *), e, velocity(i, 1:3)
|
||||
READ(10, *) e, velocity(i, 1:3)
|
||||
|
||||
END DO
|
||||
|
||||
|
|
|
|||
|
|
@ -275,6 +275,7 @@ MODULE moduleMeshInputVTU
|
|||
END DO
|
||||
|
||||
!Count the number of edges
|
||||
numEdges = 0
|
||||
SELECT CASE(self%dimen)
|
||||
CASE(3)
|
||||
!Edges are triangles, type 5 in VTK
|
||||
|
|
|
|||
|
|
@ -315,9 +315,8 @@ MODULE moduleMeshOutputVTU
|
|||
|
||||
CLASS(meshParticles), INTENT(in):: self
|
||||
INTEGER, INTENT(in):: t
|
||||
INTEGER:: n, i, fileID
|
||||
INTEGER:: i, fileID
|
||||
CHARACTER(:), ALLOCATABLE:: fileName, fileNameCollection
|
||||
TYPE(outputFormat):: output(1:self%numNodes)
|
||||
|
||||
fileID = 60
|
||||
|
||||
|
|
@ -352,10 +351,9 @@ MODULE moduleMeshOutputVTU
|
|||
|
||||
CLASS(meshGeneric), INTENT(in):: self
|
||||
INTEGER, INTENT(in):: t
|
||||
INTEGER:: n, i, fileID
|
||||
INTEGER:: fileID
|
||||
CHARACTER(:), ALLOCATABLE:: fileName, fileNameCollection
|
||||
CHARACTER (LEN=iterationDigits):: tstring
|
||||
TYPE(outputFormat):: output(1:self%numNodes)
|
||||
|
||||
fileID = 62
|
||||
|
||||
|
|
@ -424,9 +422,8 @@ MODULE moduleMeshOutputVTU
|
|||
IMPLICIT NONE
|
||||
|
||||
CLASS(meshParticles), INTENT(in):: self
|
||||
INTEGER:: n, i, fileIDMean, fileIDDeviation
|
||||
INTEGER:: i, fileIDMean, fileIDDeviation
|
||||
CHARACTER(:), ALLOCATABLE:: fileNameMean, fileNameDeviation
|
||||
TYPE(outputFormat):: output(1:self%numNodes)
|
||||
|
||||
fileIDMean = 66
|
||||
fileIDDeviation = 67
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue