methodsubcellmodule Module Reference

Data Types
type	methodsubcelltype

Functions/Subroutines
subroutine	assess (this, particle, cell_defn, tmax)
subroutine	subcellexit (this, particle)
	Particle exits a subcell. More...
integer(i4b) function	get_level (this)
	Get the subcell method's level. More...

Function/Subroutine Documentation

assess()

subroutine methodsubcellmodule::assess ( class(methodsubcelltype), intent(inout)  this, type(particletype), intent(inout), pointer  particle, type(celldefntype), intent(inout), pointer  cell_defn, real(dp), intent(in)  tmax  )

private

Definition at line 22 of file MethodSubcell.f90.

    ! dummy
    class(MethodSubcellType), intent(inout) :: this
    type(ParticleType), pointer, intent(inout) :: particle
    type(CellDefnType), pointer, intent(inout) :: cell_defn
    real(DP), intent(in) :: tmax
    ! noop

get_level()

integer(i4b) function methodsubcellmodule::get_level ( class(methodsubcelltype), intent(in)  this )

private

Definition at line 47 of file MethodSubcell.f90.

    class(MethodSubcellType), intent(in) :: this
    integer(I4B) :: level
    level = level_subfeature

subcellexit()

subroutine methodsubcellmodule::subcellexit ( class(methodsubcelltype), intent(inout)  this, type(particletype), intent(inout), pointer  particle  )

private

Definition at line 32 of file MethodSubcell.f90.

    class(MethodSubcellType), intent(inout) :: this
    type(ParticleType), pointer, intent(inout) :: particle
    class(ParticleEventType), pointer :: event
 
    allocate (subcellexiteventtype :: event)
    select type (event)
    type is (subcellexiteventtype)
      event%isc = particle%itrdomain(level_subfeature)
      event%exit_face = particle%iboundary(level_subfeature)
    end select
    call this%events%dispatch(particle, event)