Init for edges changed. Now, input

This commit is contained in:
Jorge Gonzalez 2026-02-13 10:58:31 +01:00
commit 6b96d56c9d
6 changed files with 49 additions and 69 deletions

View file

@ -87,9 +87,8 @@ MODULE moduleMesh
! Surface of edge
REAL(8):: surface = 0.D0
!Pointer to boundary per species
TYPE(boundaryCont), POINTER:: boundariesParticle(:)
TYPE(boundaryPointer), allocatable:: boundariesParticle(:)
!Physical surface for the edge
INTEGER:: physicalSurface
CONTAINS
!DEFERED PROCEDURES
PROCEDURE(initEdge_interface), DEFERRED, PASS:: init
@ -117,14 +116,14 @@ MODULE moduleMesh
ABSTRACT INTERFACE
!Inits the edge parameters
SUBROUTINE initEdge_interface(self, n, p, bt, physicalSurface)
SUBROUTINE initEdge_interface(self, n, p, bt)
use moduleSpecies, only:nSpecies
IMPORT:: meshEdge
CLASS(meshEdge), INTENT(out):: self
INTEGER, INTENT(in):: n
INTEGER, INTENT(in):: p(:)
INTEGER, INTENT(in):: bt
INTEGER, INTENT(in):: physicalSurface
INTEGER, INTENT(in):: bt(1:nSpecies)
END SUBROUTINE initEdge_interface
@ -779,6 +778,12 @@ MODULE moduleMesh
END TYPE boundaryCont
type:: boundaryPointer
class(boundaryGeneric), pointer:: obj
contains
end type boundaryPointer
!Number of boundaries
INTEGER:: nBoundaries = 0
!Array for boundaries