libsim  Versione6.3.0

◆ dbametadata_init()

type(dbametadata) function dballe_class::dbametadata_init ( type(dbalevel), intent(in), optional  level,
type(dbatimerange), intent(in), optional  timerange,
type(dbaana), intent(in), optional  ana,
type(dbanetwork), intent(in), optional  network,
type(dbadatetime), intent(in), optional  datetime 
)
private

Constructor Without parameter it is initialized to missing.

Parametri
[in]datetimedate and time

Definizione alla linea 2042 del file dballe_class.F03.

2042 type(dbacoord),intent(in),optional :: coordmin
2043 type(dbacoord),intent(in),optional :: coordmax
2044 type(dbadatetime),intent(in),optional :: datetimemin
2045 type(dbadatetime),intent(in),optional :: datetimemax
2046 integer,intent(in),optional :: limit
2047 character(len=*),intent(in),optional :: ana_filter
2048 character(len=*),intent(in),optional :: data_filter
2049 character(len=*),intent(in),optional :: attr_filter
2050 character(len=*),intent(in),optional :: varlist
2051 character(len=*),intent(in),optional :: starvarlist
2052 character(len=*),intent(in),optional :: anavarlist
2053 character(len=*),intent(in),optional :: anastarvarlist
2054 integer,intent(in),optional :: priority
2055 integer,intent(in),optional :: priomin
2056 integer,intent(in),optional :: priomax
2057 logical,intent(in),optional :: contextana
2058 class(dbadcv),intent(in),optional :: vars ! vector of vars wanted on output
2059 class(dbadcv),intent(in),optional :: starvars ! vector of vars for attribute wanted on output
2060 class(dbadcv),intent(in),optional :: anavars ! vector of ana vars wanted on output
2061 class(dbadcv),intent(in),optional :: anastarvars ! vector of vars for attribute of ana wanted on output
2062 character(len=*),intent(in),optional :: query
2063 logical,intent(in),optional :: anaonly
2064 logical,intent(in),optional :: dataonly
2065 
2066 integer :: i
2067 logical :: nopreserve
2068 
2069 nopreserve=.true.
2070 if (present(filter)) then
2071  dbafilter_init=filter
2072 
2073 !!$ if (allocated(filter%vars%dcv)) then
2074 !!$ if (allocated(dbafilter_init%vars%dcv)) deallocate(dbafilter_init%vars%dcv)
2075 !!$ allocate(dbafilter_init%vars%dcv(size(filter%vars%dcv)))
2076 !!$ do i =1,size(filter%vars%dcv)
2077 !!$ allocate(dbafilter_init%vars%dcv(i)%dat,source=filter%vars%dcv(i)%dat)
2078 !!$ end do

Generated with Doxygen.