Preparing to change the input
This commit is contained in:
parent
c1b6cf1b31
commit
defcf02466
3 changed files with 43 additions and 10 deletions
|
|
@ -587,6 +587,7 @@ MODULE moduleMesh
|
|||
! Boundary Particle Definitions
|
||||
!Generic type for boundaries
|
||||
TYPE, abstract, PUBLIC:: boundaryGeneric
|
||||
integer:: n
|
||||
character(:), allocatable:: name
|
||||
contains
|
||||
procedure, pass:: init => initBoundary
|
||||
|
|
@ -595,12 +596,13 @@ MODULE moduleMesh
|
|||
END TYPE boundaryGeneric
|
||||
|
||||
interface
|
||||
module subroutine initBoundary(self, config, object)
|
||||
module subroutine initBoundary(self, config, object, b)
|
||||
use json_module
|
||||
|
||||
class(boundaryGeneric), intent(out):: self
|
||||
type(json_file), intent(inout):: config
|
||||
character(:), allocatable, intent(in):: object
|
||||
integer, intent(in):: b
|
||||
|
||||
end subroutine initBoundary
|
||||
|
||||
|
|
@ -778,7 +780,7 @@ MODULE moduleMesh
|
|||
END TYPE boundaryCont
|
||||
|
||||
!Number of boundaries
|
||||
INTEGER:: nBoundary = 0
|
||||
INTEGER:: nBoundaries = 0
|
||||
!Array for boundaries
|
||||
TYPE(boundaryCont), ALLOCATABLE, TARGET:: boundariesParticle(:)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue