particletrackeventbuffermodule Module Reference

Particle event buffering strategies.

Data Types
type	particletrackrecordtype
	Flat record of a particle track event. More...
type	particletrackfiletype
	Output file containing all or some particle pathlines. More...
type	particletrackeventbuffertype
	Event buffering strategy. More...
interface	buffer_append
interface	buffer_flush
interface	buffer_simple

Functions/Subroutines
subroutine	buffer_init (this)
subroutine	save_record (iun, rec, csv)
	Save an event record to a binary or CSV file. More...

Function/Subroutine Documentation

buffer_init()

subroutine particletrackeventbuffermodule::buffer_init

(

class(particletrackeventbuffertype)

this

)

Definition at line 62 of file ParticleTrackEventBuffer.f90.

    class(ParticleTrackEventBufferType) :: this

save_record()

subroutine particletrackeventbuffermodule::save_record	(	integer(i4b), intent(in)	iun,
		type(particletrackrecordtype), intent(in)	rec,
		logical(lgp), intent(in)	csv
	)

Definition at line 67 of file ParticleTrackEventBuffer.f90.

    integer(I4B), intent(in) :: iun
    type(ParticleTrackRecordType), intent(in) :: rec
    logical(LGP), intent(in) :: csv
 
    if (csv) then
      write (iun, '(*(G0,:,","))') &
        rec%kper, rec%kstp, rec%imdl, rec%iprp, rec%irpt, &
        rec%ilay, rec%icu, rec%izone, rec%istatus, rec%ireason, &
        rec%trelease, rec%ttrack, rec%x, rec%y, rec%z, trim(rec%name)
    else
      write (iun) &
        rec%kper, rec%kstp, rec%imdl, rec%iprp, rec%irpt, &
        rec%ilay, rec%icu, rec%izone, rec%istatus, rec%ireason, &
        rec%trelease, rec%ttrack, rec%x, rec%y, rec%z, rec%name
    end if

Here is the caller graph for this function: