JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bit more of cleaning

Browse source
This commit is contained in:
Jorge Gonzalez 2026-04-01 16:23:53 +02:00
commit fdbe6c683b
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/modules/mesh/inout/gmsh2/moduleMeshOutputGmsh2.f90
View file

@ -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