36 lines
749 B
Fortran
36 lines
749 B
Fortran
MODULE moduleBoundary
|
|
|
|
TYPE, PUBLIC:: boundaryGeneric
|
|
INTEGER:: id = 0
|
|
CHARACTER(:), ALLOCATABLE:: name
|
|
INTEGER:: physicalSurface = 0
|
|
CHARACTER(:), ALLOCATABLE:: boundaryType
|
|
|
|
END TYPE boundaryGeneric
|
|
|
|
TYPE:: boundaryCont
|
|
CLASS(boundaryGeneric), ALLOCATABLE:: obj
|
|
|
|
END TYPE boundaryCont
|
|
|
|
|
|
INTEGER:: nBoundary = 0
|
|
TYPE(boundaryCont), ALLOCATABLE:: boundary(:)
|
|
|
|
CONTAINS
|
|
FUNCTION getBoundaryId(physicalSurface) RESULT(id)
|
|
IMPLICIT NONE
|
|
|
|
INTEGER:: physicalSurface
|
|
INTEGER:: id
|
|
INTEGER:: i
|
|
|
|
id = 0
|
|
DO i = 1, nBoundary
|
|
IF (physicalSurface == boundary(i)%obj%physicalSurface) id = boundary(i)%obj%id
|
|
|
|
END DO
|
|
|
|
END FUNCTION getBoundaryId
|
|
|
|
END MODULE moduleBoundary
|