Subroutine to initialize the dyanmic content of a face list.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_faceList_type), | intent(inout) | :: | faceList |
The face list to initialize. |
subroutine tem_init_faceList( faceList )
! --------------------------------------------------------------------------
!> The face list to initialize.
type(tem_faceList_type), intent(inout) :: faceList
! --------------------------------------------------------------------------
call init( me = faceList%faceId, length = 32 )
call init( me = faceList%rightElemId, length = 32 )
call init( me = faceList%leftElemPos, length = 32 )
call init( me = faceList%rightElemPos, length = 32 )
call init( me = faceList%leftPrp, length = 32 )
call init( me = faceList%rightPrp, length = 32 )
end subroutine tem_init_faceList