MethodModel.f90

Go to the documentation of this file.

module methodmodelmodule
  use kindmodule, only: dp, i4b
  use methodmodule, only: methodtype, level_model
  use particlemodule, only: particletype
  use celldefnmodule, only: celldefntype
  use particleeventmodule, only: particleeventtype
 
  private
  public :: methodmodeltype
 
  type, abstract, extends(methodtype) :: methodmodeltype
  contains
    procedure, public :: assess
    procedure, public :: get_level
  end type methodmodeltype
 
contains
 
  !> @brief Check particle reporting/termination status
  subroutine assess(this, particle, cell_defn, tmax)
    ! dummy
    class(methodmodeltype), intent(inout) :: this
    type(particletype), pointer, intent(inout) :: particle
    type(celldefntype), pointer, intent(inout) :: cell_defn
    real(DP), intent(in) :: tmax
    ! noop
  end subroutine assess
 
  !> @brief Get the model method's level.
  function get_level(this) result(level)
    class(methodmodeltype), intent(in) :: this
    integer(I4B) :: level
    level = level_model
  end function get_level
 
end module MethodModelModule