Init for edges changed. Now, input
This commit is contained in:
parent
defcf02466
commit
6b96d56c9d
6 changed files with 49 additions and 69 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue