Domain.f90

Go to the documentation of this file.

module domainmodule
 
  implicit none
  private
  public :: domaintype
 
  !> @brief A tracking domain.
  type, abstract :: domaintype
    character(len=40), pointer :: type !< character string that names the tracking domain type
  contains
    procedure(destroy), deferred :: destroy !< destructor
  end type domaintype
 
  abstract interface
    subroutine destroy(this)
      import domaintype
      class(domaintype), intent(inout) :: this
    end subroutine
  end interface
 
end module DomainModule