Subcell.f90

Go to the documentation of this file.

module subcellmodule
 
  use celldefnmodule, only: celldefntype
  use domainmodule, only: domaintype
  implicit none
  private
  public :: subcelltype
 
  !> @brief A subcell of a cell.
  type, abstract, extends(domaintype) :: subcelltype
    integer, public :: isubcell !< index of subcell in the cell
    integer, public :: icell !< index of cell in the source grid
  contains
    procedure(init), deferred :: init !< initializer
  end type subcelltype
 
  abstract interface
    subroutine init(this)
      import subcelltype
      class(subcelltype), intent(inout) :: this
    end subroutine init
  end interface
 
end module subcellmodule