Bit more of cleaning
This commit is contained in:
parent
04cd9dffc6
commit
fdbe6c683b
1 changed files with 6 additions and 6 deletions
|
|
@ -1,4 +1,5 @@
|
|||
MODULE moduleMeshOutputGmsh2
|
||||
use moduleOutput, only: prefix, informFileCreation, formatFileName, generateFilePath
|
||||
|
||||
CONTAINS
|
||||
!Header for mesh format
|
||||
|
|
@ -16,7 +17,7 @@ MODULE moduleMeshOutputGmsh2
|
|||
!Node data subroutines
|
||||
!Header
|
||||
SUBROUTINE writeGmsh2HeaderNodeData(fileID, title, iteration, time, dimensions, nNodes)
|
||||
use moduleOutput
|
||||
use moduleOutput, only: fmtInt, fmtReal
|
||||
IMPLICIT NONE
|
||||
|
||||
INTEGER, INTENT(in):: fileID
|
||||
|
|
@ -50,7 +51,7 @@ MODULE moduleMeshOutputGmsh2
|
|||
!Element data subroutines
|
||||
!Header
|
||||
SUBROUTINE writeGmsh2HeaderElementData(fileID, title, iteration, time, dimensions, nVols)
|
||||
use moduleOutput
|
||||
use moduleOutput, only: fmtInt, fmtReal
|
||||
IMPLICIT NONE
|
||||
|
||||
INTEGER, INTENT(in):: fileID
|
||||
|
|
@ -86,7 +87,7 @@ MODULE moduleMeshOutputGmsh2
|
|||
USE moduleMesh
|
||||
USE moduleRefParam
|
||||
USE moduleSpecies
|
||||
USE moduleOutput
|
||||
use moduleOutput, only: outputFormat, calculateOutput, fmtReal
|
||||
USE moduleCaseParam, ONLY: timeStep
|
||||
IMPLICIT NONE
|
||||
|
||||
|
|
@ -141,7 +142,7 @@ MODULE moduleMeshOutputGmsh2
|
|||
USE moduleRefParam
|
||||
USE moduleCaseParam
|
||||
USE moduleCollisions
|
||||
USE moduleOutput
|
||||
use moduleOutput, only: collOutput, fmtInt
|
||||
IMPLICIT NONE
|
||||
|
||||
CLASS(meshGeneric), INTENT(in):: self
|
||||
|
|
@ -199,7 +200,7 @@ MODULE moduleMeshOutputGmsh2
|
|||
USE moduleMesh
|
||||
USE moduleRefParam
|
||||
USE moduleCaseParam
|
||||
USE moduleOutput
|
||||
use moduleOutput, only: emOutput
|
||||
IMPLICIT NONE
|
||||
|
||||
CLASS(meshParticles), INTENT(in):: self
|
||||
|
|
@ -248,7 +249,6 @@ MODULE moduleMeshOutputGmsh2
|
|||
USE moduleMesh
|
||||
USE moduleRefParam
|
||||
USE moduleSpecies
|
||||
USE moduleOutput
|
||||
USE moduleAverage
|
||||
IMPLICIT NONE
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue