diff --git a/src/modules/mesh/moduleMesh.f90 b/src/modules/mesh/moduleMesh.f90 index d7e5eff..d45212a 100644 --- a/src/modules/mesh/moduleMesh.f90 +++ b/src/modules/mesh/moduleMesh.f90 @@ -703,7 +703,7 @@ MODULE moduleMesh !Symmetry axis TYPE, PUBLIC, EXTENDS(boundaryParticleGeneric):: boundaryAxis CONTAINS - procedure, pass:: apply => axis + procedure, pass:: apply => symmetryAxis END TYPE boundaryAxis @@ -768,14 +768,14 @@ MODULE moduleMesh end subroutine transparent - module subroutine axis(self, edge, part) + module subroutine symmetryAxis(self, edge, part) use moduleSpecies class(boundaryAxis), intent(in):: self class(meshEdge), intent(inout):: edge class(particle), intent(inout):: part - end subroutine axis + end subroutine symmetryAxis module subroutine wallTemperature(self, edge, part) use moduleSpecies diff --git a/src/modules/mesh/moduleMesh@boundaryParticle.f90 b/src/modules/mesh/moduleMesh@boundaryParticle.f90 index 5715845..fd814f8 100644 --- a/src/modules/mesh/moduleMesh@boundaryParticle.f90 +++ b/src/modules/mesh/moduleMesh@boundaryParticle.f90 @@ -29,6 +29,7 @@ submodule(moduleMesh) boundaryParticle use json_module use moduleRefParam, only: m_ref use moduleConstParam, only: me + use moduleErrors, only: criticalError implicit none class(boundaryParticleGeneric), allocatable, intent(out):: self @@ -152,7 +153,7 @@ submodule(moduleMesh) boundaryParticle USE moduleSpecies USE moduleCaseParam USE moduleConstParam - USE moduleErrors + USE moduleErrors, only: criticalError IMPLICIT NONE CLASS(boundaryParticleGeneric), ALLOCATABLE, INTENT(out):: boundary diff --git a/src/modules/mesh/moduleMesh@elements.f90 b/src/modules/mesh/moduleMesh@elements.f90 index 6c4e7aa..b96d737 100644 --- a/src/modules/mesh/moduleMesh@elements.f90 +++ b/src/modules/mesh/moduleMesh@elements.f90 @@ -18,7 +18,7 @@ submodule(moduleMesh) elements END SUBROUTINE resetOutput - module subroutine meshNodePointerAdd(self, node) + module subroutine meshNodePointer_add(self, node) implicit none class(meshNodePointer), allocatable, intent(inout):: self(:) @@ -47,7 +47,7 @@ submodule(moduleMesh) elements end if - end subroutine meshNodePointerAdd + end subroutine meshNodePointer_add module function meshNodePointer_equal_type_type(self, other) result(isEqual) implicit none @@ -124,6 +124,7 @@ submodule(moduleMesh) elements !Constructs the global K matrix module SUBROUTINE constructGlobalK(self) + use moduleErrors, only: criticalError IMPLICIT NONE CLASS(meshParticles), INTENT(inout):: self