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

IT COMPILES

Browse source 
I don't belive it, this was the largest change in the code ever made and
it is compiling now.

Now, I have to test, clean the code, change the examples and update the
documentation...
This commit is contained in:
Jorge Gonzalez 2026-02-25 09:02:09 +01:00
commit be9b7be280
3 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/modules/mesh/moduleMesh.f90
View file

@ -703,7 +703,7 @@ MODULE moduleMesh
!Symmetry axis !Symmetry axis
TYPE, PUBLIC, EXTENDS(boundaryParticleGeneric):: boundaryAxis TYPE, PUBLIC, EXTENDS(boundaryParticleGeneric):: boundaryAxis
CONTAINS CONTAINS
procedure, pass:: apply => axis procedure, pass:: apply => symmetryAxis
END TYPE boundaryAxis END TYPE boundaryAxis
@ -768,14 +768,14 @@ MODULE moduleMesh
end subroutine transparent end subroutine transparent
module subroutine axis(self, edge, part) module subroutine symmetryAxis(self, edge, part)
use moduleSpecies use moduleSpecies
class(boundaryAxis), intent(in):: self class(boundaryAxis), intent(in):: self
class(meshEdge), intent(inout):: edge class(meshEdge), intent(inout):: edge
class(particle), intent(inout):: part class(particle), intent(inout):: part
end subroutine axis end subroutine symmetryAxis
module subroutine wallTemperature(self, edge, part) module subroutine wallTemperature(self, edge, part)
use moduleSpecies use moduleSpecies

3
src/modules/mesh/moduleMesh@boundaryParticle.f90
View file

@ -29,6 +29,7 @@ submodule(moduleMesh) boundaryParticle
use json_module use json_module
use moduleRefParam, only: m_ref use moduleRefParam, only: m_ref
use moduleConstParam, only: me use moduleConstParam, only: me
use moduleErrors, only: criticalError
implicit none implicit none
class(boundaryParticleGeneric), allocatable, intent(out):: self class(boundaryParticleGeneric), allocatable, intent(out):: self
@ -152,7 +153,7 @@ submodule(moduleMesh) boundaryParticle
USE moduleSpecies USE moduleSpecies
USE moduleCaseParam USE moduleCaseParam
USE moduleConstParam USE moduleConstParam
USE moduleErrors USE moduleErrors, only: criticalError
IMPLICIT NONE IMPLICIT NONE
CLASS(boundaryParticleGeneric), ALLOCATABLE, INTENT(out):: boundary CLASS(boundaryParticleGeneric), ALLOCATABLE, INTENT(out):: boundary

5
src/modules/mesh/moduleMesh@elements.f90
View file

@ -18,7 +18,7 @@ submodule(moduleMesh) elements
END SUBROUTINE resetOutput END SUBROUTINE resetOutput
module subroutine meshNodePointerAdd(self, node) module subroutine meshNodePointer_add(self, node)
implicit none implicit none
class(meshNodePointer), allocatable, intent(inout):: self(:) class(meshNodePointer), allocatable, intent(inout):: self(:)
@ -47,7 +47,7 @@ submodule(moduleMesh) elements
end if end if
end subroutine meshNodePointerAdd end subroutine meshNodePointer_add
module function meshNodePointer_equal_type_type(self, other) result(isEqual) module function meshNodePointer_equal_type_type(self, other) result(isEqual)
implicit none implicit none
@ -124,6 +124,7 @@ submodule(moduleMesh) elements
!Constructs the global K matrix !Constructs the global K matrix
module SUBROUTINE constructGlobalK(self) module SUBROUTINE constructGlobalK(self)
use moduleErrors, only: criticalError
IMPLICIT NONE IMPLICIT NONE
CLASS(meshParticles), INTENT(inout):: self CLASS(meshParticles), INTENT(inout):: self