MethodPool.f90

Go to the documentation of this file.

!> @brief Model-level tracking methods.
module methodpoolmodule
  use methodmodule, only: methodtype
  use methoddismodule, only: methoddistype, create_method_dis
  use methoddisvmodule, only: methoddisvtype, create_method_disv
  implicit none
 
  private
  public :: create_method_pool, destroy_method_pool
 
  type(methoddistype), pointer, public :: method_dis => null()
  type(methoddisvtype), pointer, public :: method_disv => null()
 
contains
 
  !> @brief Create the method pool
  subroutine create_method_pool()
    call create_method_dis(method_dis)
    call create_method_disv(method_disv)
  end subroutine create_method_pool
 
  !> @brief Destroy the method pool
  subroutine destroy_method_pool()
    call method_dis%deallocate()
    deallocate (method_dis)
    call method_disv%deallocate()
    deallocate (method_disv)
  end subroutine destroy_method_pool
 
end module methodpoolmodule