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

10
src/modules/mesh/moduleMesh@boundaryEM.f90
View file

@ -1,6 +1,6 @@
submodule(moduleMesh) boundaryEM
CONTAINS
function boundaryEMName_to_Index(boundaryName) result(bp)
module function boundaryEMName_to_Index(boundaryName) result(bp)
use moduleErrors
implicit none
@ -73,7 +73,7 @@ submodule(moduleMesh) boundaryEM
end subroutine initBoundaryEM
! Initialize Dirichlet boundary condition
SUBROUTINE initDirichlet(self, config, object)
module SUBROUTINE initDirichlet(self, config, object)
use json_module
USE moduleRefParam, ONLY: Volt_ref
use moduleErrors
@ -100,7 +100,7 @@ submodule(moduleMesh) boundaryEM
end subroutine initDirichlet
! Initialize Dirichlet boundary condition
subroutine initDirichletTime(self, config, object)
module subroutine initDirichletTime(self, config, object)
use json_module
use moduleRefParam, ONLY: Volt_ref, ti_ref
use moduleErrors
@ -142,7 +142,7 @@ submodule(moduleMesh) boundaryEM
END SUBROUTINE initDirichletTime
!Apply Dirichlet boundary condition to the poisson equation
SUBROUTINE applyDirichlet(self, vectorF)
module SUBROUTINE applyDirichlet(self, vectorF)
USE moduleMesh
IMPLICIT NONE
@ -159,7 +159,7 @@ submodule(moduleMesh) boundaryEM
END SUBROUTINE applyDirichlet
!Apply Dirichlet boundary condition with time temporal profile
SUBROUTINE applyDirichletTime(self, vectorF)
module SUBROUTINE applyDirichletTime(self, vectorF)
USE moduleMesh
USE moduleCaseParam, ONLY: timeStep, tauMin
IMPLICIT NONE