18 PROGRAM v7ddballe_test
27 TYPE(vol7d_dballe) :: v7d_dba
29 TYPE(vol7d_network):: network
31 integer :: category,ier
32 character(len=512):: a_name,filename=
"vol7d_dballe_test2.bufr",filenameout=
"vol7d_dballe_test2_out.bufr"
35 call l4f_launcher(a_name)
40 category=l4f_category_get(a_name//
".main")
44 print*,
"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
45 print*,
"!! import/export from file"
46 print*,
"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
49 CALL init(v7d_dba,filename=filename,file=.true.,categoryappend=
"v7ddballe_read")
55 call init(network,
'TEMP')
56 CALL import(v7d_dba,[
"B10004",
"B12101",
"B12103"],varkind=[
"r",
"d",
"i"], &
57 network=network,anavar=[
"B01001",
"B07030"],anavarkind=[
"r",
"i"])
61 call vol7d_copy(v7d_dba%vol7d,v7d)
67 CALL init(v7d_dba,filename=filenameout,file=.true.,write=.true.,wipe=.true.,categoryappend=
"v7ddballe_write")
69 call vol7d_copy(v7d,v7d_dba%vol7d)
82 call l4f_category_delete(category)
85 END PROGRAM v7ddballe_test
Emit log message for a category with specific priority.
Global log4fortran constructor.
Costruttore per la classe vol7d.
class for import and export data from e to DB-All.e.
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