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

Files compile but there is no linking in mesh module

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-24 20:03:36 +01:00
commit 135f1f464c
7 changed files with 57 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
!moduleMeshBoundary: Boundary functions for the mesh edges
submodule(moduleMesh) boundaryParticle
contains
function boundaryParticleName_to_Index(boundaryName) result(bp)
module function boundaryParticleName_to_Index(boundaryName) result(bp)
use moduleErrors
implicit none
@ -209,6 +209,7 @@ submodule(moduleMesh) boundaryParticle
select type(boundary)
type is(boundaryQuasiNeutrality)
boundary%alpha = 0.d0
allocate(boundary%edges(0))
end select
@ -241,7 +242,7 @@ submodule(moduleMesh) boundaryParticle
END SUBROUTINE reflection
!Absoption in a surface
SUBROUTINE absorption(self, edge, part)
module SUBROUTINE absorption(self, edge, part)
USE moduleCaseParam
USE moduleSpecies
IMPLICIT NONE
@ -278,7 +279,7 @@ submodule(moduleMesh) boundaryParticle
END SUBROUTINE absorption
!Transparent boundary condition
SUBROUTINE transparent(self, edge, part)
module SUBROUTINE transparent(self, edge, part)
USE moduleSpecies
IMPLICIT NONE
@ -294,7 +295,7 @@ submodule(moduleMesh) boundaryParticle
!Symmetry axis. Reflects particles.
!Although this function should never be called, it is set as a reflective boundary
!to properly deal with possible particles reaching a corner and selecting this boundary.
SUBROUTINE symmetryAxis(self, edge, part)
module SUBROUTINE symmetryAxis(self, edge, part)
USE moduleSpecies
IMPLICIT NONE
@ -307,7 +308,7 @@ submodule(moduleMesh) boundaryParticle
END SUBROUTINE symmetryAxis
!Wall with temperature
SUBROUTINE wallTemperature(self, edge, part)
module SUBROUTINE wallTemperature(self, edge, part)
USE moduleSpecies
USE moduleRandom
IMPLICIT NONE
@ -329,7 +330,7 @@ submodule(moduleMesh) boundaryParticle
!Ionization surface: an electron will pass through the surface
! and create an ion-electron pair based on a neutral background
SUBROUTINE ionization(self, edge, part)
module SUBROUTINE ionization(self, edge, part)
USE moduleList
USE moduleSpecies
USE moduleMesh
@ -426,7 +427,7 @@ submodule(moduleMesh) boundaryParticle
END SUBROUTINE ionization
subroutine quasiNeutrality(self, edge, part)
module subroutine quasiNeutrality(self, edge, part)
use moduleRandom
implicit none
@ -483,7 +484,7 @@ submodule(moduleMesh) boundaryParticle
end subroutine genericReflection
subroutine genericTransparent(edge, part)
module subroutine genericTransparent(edge, part)
use moduleSpecies
implicit none