subcellexiteventmodule Module Reference

Data Types
type	subcellexiteventtype

Functions/Subroutines
integer(i4b) function	get_code (this)
character(len=:) function, allocatable	get_verb (this)
character(len=:) function, allocatable	get_text (this)

Function/Subroutine Documentation

get_code()

integer(i4b) function subcellexiteventmodule::get_code ( class(subcellexiteventtype), intent(in)  this )

private

Definition at line 24 of file SubcellExitEvent.f90.

    class(SubCellExitEventType), intent(in) :: this
    integer(I4B) :: code
    code = featexit

get_text()

character(len=:) function, allocatable subcellexiteventmodule::get_text ( class(subcellexiteventtype), intent(in)  this )

private

Definition at line 36 of file SubcellExitEvent.f90.

    class(SubCellExitEventType), 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, &
      ', subcell ', this%isc, &
      ', zone ', this%izone, &
      ' through face ', this%exit_face, &
      ' 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))

get_verb()

character(len=:) function, allocatable subcellexiteventmodule::get_verb ( class(subcellexiteventtype), intent(in)  this )

private

Definition at line 30 of file SubcellExitEvent.f90.

    class(SubCellExitEventType), intent(in) :: this
    character(len=:), allocatable :: verb
    verb = 'exited subcell'