search

ARPA-SIMC / libsim

Command-line utilities and fortran modules for meteorological data processing
GNU General Public License v2.0
7 stars 1 forks source link

dballe_class: ingest(metaanddatav,filter=filter) with filter with more attributes return the first only attribute #23

Closed pat1 closed 8 years ago

pat1 commented 8 years ago

call session%ingest(metaanddatav,filter=filter) with filter with more attributes return the first only attribute

allocate (starvars%dcv(4)) allocate (starvars%dcv(1)%dat,source=dbadatab(qcattrvarsbtables(1))) allocate (starvars%dcv(2)%dat,source=dbadatab(qcattrvarsbtables(2))) allocate (starvars%dcv(3)%dat,source=dbadatab(qcattrvarsbtables(3))) allocate (starvars%dcv(4)%dat,source=dbadatab(qcattrvarsbtables(4))) filter=dbafilter(starvars=starvars)

do while (sessionfrom%messages_read_next()) call sessionfrom%set(filter=filter) call sessionfrom%ingest(metaanddatav,filter=filter) do i =1,size(metaanddatav)

call metaanddatav(i)%display()

end do end do