libsim Versione 7.1.11

◆ dbametadata_set()

subroutine 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.