timearrayserieslinkmodule Module Reference

Data Types
type	timearrayserieslinktype

Functions/Subroutines
subroutine	tasl_da (this)
	Deallocate. More...
subroutine, public	constructtimearrayserieslink (newTasLink, timeArraySeries, pkgName, bndArray, iprpak, text)
	Construct a time series of arrays that are linked. More...
type(timearrayserieslinktype) function, pointer, private	castastimearrayserieslinktype (obj)
	Cast an unlimited polymorphic object as TimeArraySeriesLinkType. More...
subroutine, public	addtimearrayserieslinktolist (list, tasLink)
	Add time-array series to list. More...
type(timearrayserieslinktype) function, pointer, public	gettimearrayserieslinkfromlist (list, idx)
	Get time-array series from a list and return. More...

Function/Subroutine Documentation

addtimearrayserieslinktolist()

subroutine, public timearrayserieslinkmodule::addtimearrayserieslinktolist	(	type(listtype), intent(inout)	list,
		type(timearrayserieslinktype), intent(inout), pointer	tasLink
	)

Definition at line 103 of file TimeArraySeriesLink.f90.

    ! -- dummy
    type(ListType), intent(inout) :: list
    ! -- return
    type(TimeArraySeriesLinkType), pointer, intent(inout) :: tasLink
    ! -- local
    class(*), pointer :: obj
    !
    obj => taslink
    call list%Add(obj)
    !
    ! -- Return
    return

Here is the caller graph for this function:

castastimearrayserieslinktype()

type(timearrayserieslinktype) function, pointer, private timearrayserieslinkmodule::castastimearrayserieslinktype ( class(*), intent(inout), pointer  obj )

private

Definition at line 83 of file TimeArraySeriesLink.f90.

    ! -- dummy
    class(*), pointer, intent(inout) :: obj
    ! -- return
    type(TimeArraySeriesLinkType), pointer :: res
    !
    res => null()
    if (.not. associated(obj)) return
    !
    select type (obj)
    type is (timearrayserieslinktype)
      res => obj
    end select
    !
    ! -- Return
    return

Here is the caller graph for this function:

constructtimearrayserieslink()

subroutine, public timearrayserieslinkmodule::constructtimearrayserieslink	(	type(timearrayserieslinktype), intent(out), pointer	newTasLink,
		type(timearrayseriestype), intent(in), pointer	timeArraySeries,
		character(len=*), intent(in)	pkgName,
		real(dp), dimension(:), intent(in), pointer	bndArray,
		integer(i4b), intent(in)	iprpak,
		character(len=*), intent(in)	text
	)

Definition at line 55 of file TimeArraySeriesLink.f90.

    ! -- dummy
    type(TimeArraySeriesLinkType), pointer, intent(out) :: newTasLink
    type(TimeArraySeriesType), pointer, intent(in) :: timeArraySeries
    character(len=*), intent(in) :: pkgName
    real(DP), dimension(:), pointer, intent(in) :: bndArray
    integer(I4B), intent(in) :: iprpak
    character(len=*), intent(in) :: text
    ! -- local
    character(len=LENPACKAGENAME) :: pkgNameTemp
    !
    allocate (newtaslink)
    ! Store package name as all caps
    pkgnametemp = pkgname
    call upcase(pkgnametemp)
    newtaslink%PackageName = pkgnametemp
    newtaslink%timeArraySeries => timearrayseries
    newtaslink%BndArray => bndarray
    newtaslink%Iprpak = iprpak
    newtaslink%Text = text
    !
    ! -- Return
    return

Here is the call graph for this function:

Here is the caller graph for this function:

gettimearrayserieslinkfromlist()

type(timearrayserieslinktype) function, pointer, public timearrayserieslinkmodule::gettimearrayserieslinkfromlist	(	type(listtype), intent(inout)	list,
		integer(i4b), intent(in)	idx
	)

Definition at line 120 of file TimeArraySeriesLink.f90.

    ! -- dummy
    type(ListType), intent(inout) :: list
    integer(I4B), intent(in) :: idx
    ! -- return
    type(TimeArraySeriesLinkType), pointer :: res
    ! -- local
    class(*), pointer :: obj
    !
    obj => list%GetItem(idx)
    res => castastimearrayserieslinktype(obj)
    !
    ! -- Return
    return

Here is the call graph for this function:

Here is the caller graph for this function:

tasl_da()

subroutine timearrayserieslinkmodule::tasl_da ( class(timearrayserieslinktype), intent(inout)  this )

private

Definition at line 40 of file TimeArraySeriesLink.f90.

    ! -- dummy
    class(TimeArraySeriesLinkType), intent(inout) :: this
    !
    this%nodelist => null()
    this%bndarray => null()
    this%rmultarray => null()
    this%TimeArraySeries => null()
    !
    ! -- Return
    return