A world tube class.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer(kind=ip), | public | :: | n | The number of elements on the grid. |
|||
type(rgf), | public | :: | win | A real grid function that contains a window function used to define the world-tube. |
|||
type(rgf), | public | :: | dwin | A real grid function that contains the radial derivative of the window function. |
|||
type(rgf), | public | :: | d2win | A real grid function that contains the second radial derivative of the window function. |
|||
type(igfb), | public | :: | boundary_info | An integer boundary grid function that contains information about whether an element boundary coincides with the world-tube. |
|||
integer(kind=ip), | public | :: | windex1 | The element index of the left boundary of the world-tube. |
|||
integer(kind=ip), | public | :: | windex2 | The element index of the right boundary of the world-tube. |
Routine to decide whether a given element boundary is a world-tube boundary.
A routine to determine whether a given element boundary is a world-tube boundary.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(wtube), | intent(in) | :: | this | The routine is called on this world-tube object. |
||
integer(kind=ip), | intent(in) | :: | n | The index of the element to check. |
||
integer(kind=ip), | intent(in) | :: | dir | The direction of the boundary within the element: -1 for left. boundary, +1 for the right boundary. |
On return, .true. if this is a world-tube boundary and .false. if it is not.
type :: wtube
!! A world tube class.
integer(ip) :: n
!! The number of elements on the grid.
type(rgf) :: win
!! A real grid function that contains a window function used to define the
!! world-tube.
type(rgf) :: dwin
!! A real grid function that contains the radial derivative of the window
!! function.
type(rgf) :: d2win
!! A real grid function that contains the second radial derivative of the
!! window function.
type(igfb) :: boundary_info
!! An integer boundary grid function that contains information about
!! whether an element boundary coincides with the world-tube.
integer(ip) :: windex1
!! The element index of the left boundary of the world-tube.
integer(ip) :: windex2
!! The element index of the right boundary of the world-tube.
contains
procedure, non_overridable :: is_boundary
!! Routine to decide whether a given element boundary is a world-tube
!! boundary.
end type wtube