timeseriesfilelistmodule Module Reference

Data Types
type	timeseriesfilelisttype

Functions/Subroutines
subroutine	add (this, filename, iout, tsfile)
subroutine	clear (this)
integer(i4b) function	counttsfiles (this)
integer(i4b) function	counttimeseries (this)
type(timeseriesfiletype) function, pointer	gettsfile (this, indx)
subroutine	add_time_series_tsfile (this, tsfile)
subroutine	tsfl_da (this)

Function/Subroutine Documentation

add()

subroutine timeseriesfilelistmodule::add ( class(timeseriesfilelisttype), intent(inout)  this, character(len=*), intent(in)  filename, integer(i4b), intent(in)  iout, class(timeseriesfiletype), intent(inout), pointer  tsfile  )

private

Definition at line 37 of file TimeSeriesFileList.f90.

    implicit none
    ! -- dummy
    class(TimeSeriesFileListType), intent(inout) :: this
    character(len=*), intent(in) :: filename
    integer(I4B), intent(in) :: iout
    class(TimeSeriesFileType), pointer, intent(inout) :: tsfile
    ! -- local
    type(TimeSeriesFileType), pointer :: tsf
    !
    ! -- Construct and initialize a new time-series tsfile
    call constructtimeseriesfile(tsf)
    tsfile => tsf
    call tsfile%Initializetsfile(filename, iout, .true.)
    !
    ! -- Add the time-series tsfile to the list
    call this%add_time_series_tsfile(tsfile)

Here is the call graph for this function:

add_time_series_tsfile()

subroutine timeseriesfilelistmodule::add_time_series_tsfile ( class(timeseriesfilelisttype), intent(inout)  this, class(timeseriesfiletype), intent(inout), pointer  tsfile  )

private

Definition at line 108 of file TimeSeriesFileList.f90.

    implicit none
    ! -- dummy
    class(TimeSeriesFileListType), intent(inout) :: this
    class(TimeSeriesFileType), pointer, intent(inout) :: tsfile
    !
    call addtimeseriesfiletolist(this%tsfileList, tsfile)
    this%numtsfiles = this%numtsfiles + 1

Here is the call graph for this function:

clear()

subroutine timeseriesfilelistmodule::clear ( class(timeseriesfilelisttype), intent(inout)  this )

private

Definition at line 56 of file TimeSeriesFileList.f90.

    implicit none
    ! -- dummy
    class(TimeSeriesFileListType), intent(inout) :: this
    !
    call this%tsfileList%Clear()

counttimeseries()

integer(i4b) function timeseriesfilelistmodule::counttimeseries ( class(timeseriesfilelisttype)  this )

private

Definition at line 75 of file TimeSeriesFileList.f90.

    implicit none
    ! -- return
    integer(I4B) :: CountTimeSeries
    ! -- dummy
    class(TimeSeriesFileListType) :: this
    ! -- local
    integer(I4B) :: i, numtsfiles
    type(TimeSeriesFileType), pointer :: tsfile
    !
    numtsfiles = this%Counttsfiles()
    counttimeseries = 0
    do i = 1, numtsfiles
      tsfile => this%Gettsfile(i)
      if (associated(tsfile)) then
        counttimeseries = counttimeseries + tsfile%Count()
      end if
    end do

counttsfiles()

integer(i4b) function timeseriesfilelistmodule::counttsfiles ( class(timeseriesfilelisttype)  this )

private

Definition at line 64 of file TimeSeriesFileList.f90.

    implicit none
    ! -- return
    integer(I4B) :: Counttsfiles
    ! -- dummy
    class(TimeSeriesFileListType) :: this
    !
    counttsfiles = this%tsfileList%Count()
    !

gettsfile()

type(timeseriesfiletype) function, pointer timeseriesfilelistmodule::gettsfile ( class(timeseriesfilelisttype)  this, integer(i4b), intent(in)  indx  )

private

Definition at line 95 of file TimeSeriesFileList.f90.

    implicit none
    ! -- dummy
    class(TimeSeriesFileListType) :: this
    integer(I4B), intent(in) :: indx
    ! -- return
    type(TimeSeriesFileType), pointer :: res
    !
    res => gettimeseriesfilefromlist(this%tsfileList, indx)

Here is the call graph for this function:

tsfl_da()

subroutine timeseriesfilelistmodule::tsfl_da ( class(timeseriesfilelisttype), intent(inout)  this )

private

Definition at line 118 of file TimeSeriesFileList.f90.

    ! -- dummy
    class(TimeSeriesFileListType), intent(inout) :: this
    ! -- local
    integer(I4B) :: i, n
    type(TimeSeriesFileType), pointer :: tsf => null()
    !
    n = this%Counttsfiles()
    do i = 1, n
      tsf => this%Gettsfile(i)
      call tsf%da()
    end do
    !
    call this%tsfileList%Clear(.true.)
    !