Cell.f90

Go to the documentation of this file.

module cellmodule
 
  use celldefnmodule, only: celldefntype
  use kindmodule, only: i4b
  implicit none
  private
  public :: celltype
 
  integer(I4B), public, parameter :: max_poly_cells = 10
 
  !> @brief Base type for grid cells of a concrete type. Contains
  !! a cell-definition which is information shared by cell types.
  type, abstract :: celltype
    character(len=40), pointer :: type ! tracking domain type
    type(celldefntype), pointer :: defn => null() ! cell defn
  contains
    procedure(destroy), deferred :: destroy !< destroy the cell
  end type celltype
 
  abstract interface
    subroutine destroy(this)
      import celltype
      class(celltype), intent(inout) :: this
    end subroutine
  end interface
 
end module cellmodule