FeatExitEvent.f90

Go to the documentation of this file.

module featexiteventmodule
  use kindmodule, only: dp, i4b, lgp
  use constantsmodule, only: lenhugeline
  use errorutilmodule, only: pstop
  use particlemodule, only: particletype
  use particleeventmodule, only: particleeventtype, featexit
  implicit none
 
  private
  public :: featexiteventtype
 
  type, extends(particleeventtype) :: featexiteventtype
  contains
    procedure :: get_code
    procedure :: get_verb
    procedure :: get_text
  end type featexiteventtype
 
contains
 
  function get_code(this) result(code)
    class(featexiteventtype), intent(in) :: this
    integer(I4B) :: code
    code = featexit
  end function get_code
 
  function get_verb(this) result(verb)
    class(featexiteventtype), intent(in) :: this
    character(len=:), allocatable :: verb
    verb = 'exited grid feature'
  end function get_verb
 
  function get_text(this) result(text)
    class(featexiteventtype), intent(in) :: this
    character(len=:), allocatable :: text
    character(len=LENHUGELINE) :: temp
 
    write (temp, '(*(G0))') &
      'Particle from model ', this%imdl, &
      ', package ', this%iprp, &
      ', point ', this%irpt, &
      ', time ', this%trelease, &
      ' '//this%get_verb()// &
      ' in layer ', this%ilay, &
      ', cell ', this%icu, &
      ', zone ', this%izone, &
      ' at x ', this%x, &
      ', y ', this%y, &
      ', z ', this%z, &
      ', time ', this%ttrack, &
      ', period ', this%kper, &
      ', timestep ', this%kstp, &
      ' with status ', this%istatus
    text = trim(adjustl(temp))
  end function get_text
 
end module featexiteventmodule