libsim Versione 7.2.1

◆ 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 2063 del file dballe_class.F03.

2064nopreserve=.true.
2065if (present(filter)) then
2066 dbafilter_init=filter
2067
2068!!$ if (allocated(filter%vars%dcv)) then
2069!!$ if (allocated(dbafilter_init%vars%dcv)) deallocate(dbafilter_init%vars%dcv)
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

Generated with Doxygen.