26 integer :: category,ier
27 character(len=512):: a_name,filename=
"synop_t.bufr"
28 TYPE(vol7d_dballe) :: v7d_dba
29 TYPE(vol7d) :: v7d_ana
32 call l4f_launcher(a_name,a_name_force=
"demo8")
38 category=l4f_category_get(a_name//
".main")
43 CALL init(v7d_dba,file=.true.,write=.false.,filename=filename,&
44 categoryappend=
"importBUFR",format=
"BUFR")
46 call import (v7d_dba,var=(/
"B12101"/),varkind=(/
"r"/))
56 call vol7d_copy (v7d_dba%vol7d,v7d_ana)
61 call delete(v7d_ana,dataonly=.true.)
62 call vol7d_alloc (v7d_ana, &
63 ntime=0, ntimerange=0, nlevel=0, &
64 ndativarr=0, ndativari=0, ndativarb=0, ndativard=0, ndativarc=0,&
65 ndatiattrr=0, ndatiattri=0, ndatiattrb=0, ndatiattrd=0, ndatiattrc=0,&
66 ndativarattrr=0, ndativarattri=0, ndativarattrb=0, ndativarattrd=0, ndativarattrc=0)
70 CALL export (v7d_ana,filename=
"ana.v7d",description=
"Solo anagrafica")
78 call l4f_category_delete(category)
Emit log message for a category with specific priority.
Global log4fortran constructor.
classe per la gestione del logging
Classe per la gestione di un volume completo di dati osservati.
classe per import ed export di volumi da e in DB-All.e