libsim  Versione 7.1.7

◆ dbametadata_set()

subroutine dballe_class::dbametadata_set ( class(dbametadata), intent(in)  metadata,
type(dbasession), intent(in)  session 
)
private

set parameters in dballe API

Parametri
[in]sessiondballe session

Definizione alla linea 2069 del file dballe_class.F03.

2070 !!$ allocate(dbafilter_init%vars%dcv(size(filter%vars%dcv)))
2071 !!$ do i =1,size(filter%vars%dcv)
2072 !!$ allocate(dbafilter_init%vars%dcv(i)%dat,source=filter%vars%dcv(i)%dat)
2073 !!$ end do
2074 !!$ end if
2075 !!$
2076 !!$ if (allocated(filter%starvars%dcv)) then
2077 !!$ if (allocated(dbafilter_init%starvars%dcv)) deallocate(dbafilter_init%starvars%dcv)
2078 !!$ allocate(dbafilter_init%starvars%dcv(size(filter%starvars%dcv)))
2079 !!$ do i =1,size(filter%starvars%dcv)
2080 !!$ allocate(dbafilter_init%starvars%dcv(i)%dat,source=filter%starvars%dcv(i)%dat)
2081 !!$ end do
2082 !!$ end if
2083 !!$
2084 !!$ if (allocated(filter%anavars%dcv)) then
2085 !!$ if (allocated(dbafilter_init%anavars%dcv)) deallocate(dbafilter_init%anavars%dcv)
2086 !!$ allocate(dbafilter_init%anavars%dcv(size(filter%anavars%dcv)))
2087 !!$ do i =1,size(filter%anavars%dcv)
2088 !!$ call filter%anavars%dcv(i)%dat%display()
2089 !!$ allocate(dbafilter_init%anavars%dcv(i)%dat,source=filter%anavars%dcv(i)%dat)
2090 !!$ end do

Generated with Doxygen.