Subcell.f90

Go to the documentation of this file.

module subcellmodule
 
  use celldefnmodule, only: celldefntype
  implicit none
  private
  public :: subcelltype
 
  !> @brief A subcell of a cell.
  type, abstract :: subcelltype
    private
    character(len=40), pointer, public :: type !< character string that names the tracking domain type
    integer, public :: isubcell !< index of subcell in the cell
    integer, public :: icell !< index of cell in the source grid
  contains
    procedure(destroy), deferred :: destroy !< destructor
    procedure(init), deferred :: init !< initializer
  end type subcelltype
 
  abstract interface
    subroutine destroy(this)
      import subcelltype
      class(subcelltype), intent(inout) :: this
    end subroutine
 
    subroutine init(this)
      import subcelltype
      class(subcelltype), intent(inout) :: this
    end subroutine init
  end interface
 
end module subcellmodule