Programma scrittura su file vettore di anagrafica
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)