particleeventsmodule Module Reference

Data Types
type	particleeventconsumertype
type	particleeventdispatchertype
interface	handle_event

Functions/Subroutines
subroutine	subscribe (this, consumer)
	Subscribe a consumer to the dispatcher. More...
subroutine	dispatch (this, particle, event)
	Dispatch an event. More...
subroutine	destroy (this)
	Destroy the dispatcher. More...

Function/Subroutine Documentation

destroy()

subroutine particleeventsmodule::destroy

(

class(particleeventdispatchertype), intent(inout)

this

)

Definition at line 85 of file ParticleEvents.f90.

    class(ParticleEventDispatcherType), intent(inout) :: this
    call this%consumers%Clear()

dispatch()

subroutine particleeventsmodule::dispatch ( class(particleeventdispatchertype), intent(inout)  this, type(particletype), intent(inout), pointer  particle, class(particleeventtype), intent(inout), pointer  event  )

private

Definition at line 43 of file ParticleEvents.f90.

    use tdismodule, only: kper, kstp
    ! dummy
    class(ParticleEventDispatcherType), intent(inout) :: this
    type(ParticleType), pointer, intent(inout) :: particle
    class(ParticleEventType), pointer, intent(inout) :: event
    ! local
    integer(I4B) :: i
    real(DP) :: x, y, z
    class(*), pointer :: p
 
    ! Convert to model coordinates if we need to
    x = particle%x
    y = particle%y
    z = particle%z
    call particle%get_model_coords(x, y, z)
 
    event%kper = kper
    event%kstp = kstp
    event%imdl = particle%imdl
    event%iprp = particle%iprp
    event%irpt = particle%irpt
    event%ilay = particle%ilay
    event%icu = particle%icu
    event%izone = particle%izone
    event%trelease = particle%trelease
    event%ttrack = particle%ttrack
    event%x = x
    event%y = y
    event%z = z
    event%istatus = particle%istatus
 
    do i = 1, this%consumers%Count()
      p => this%consumers%GetItem(i)
      select type (consumer => p)
      class is (particleeventconsumertype)
        call consumer%handle_event(particle, event)
      end select
    end do

subscribe()

subroutine particleeventsmodule::subscribe ( class(particleeventdispatchertype), intent(inout)  this, class(particleeventconsumertype), intent(inout), target  consumer  )

private

Definition at line 34 of file ParticleEvents.f90.

    class(ParticleEventDispatcherType), intent(inout) :: this
    class(ParticleEventConsumerType), target, intent(inout) :: consumer
    class(*), pointer :: p
    p => consumer
    call this%consumers%Add(p)