Preparing to change the input

This commit is contained in:
Jorge Gonzalez 2026-02-10 18:46:37 +01:00
commit defcf02466
3 changed files with 43 additions and 10 deletions

View file

@ -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(:)