Programma scrittura su file vettore di anagrafica.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18program demo8
19
23
24implicit none
25
26integer :: category,ier
27character(len=512):: a_name,filename="synop_t.bufr"
28TYPE(vol7d_dballe) :: v7d_dba
29TYPE(vol7d) :: v7d_ana
30
31
32call l4f_launcher(a_name,a_name_force="demo8")
33
34
36
37
38category=l4f_category_get(a_name//".main")
39
41
42
43CALL init(v7d_dba,file=.true.,write=.false.,filename=filename,&
44 categoryappend="importBUFR",format="BUFR")
45
46call import (v7d_dba,var=(/"B12101"/),varkind=(/"r"/))
47
49
51
53
55
56call vol7d_copy (v7d_dba%vol7d,v7d_ana)
57
58call delete (v7d_dba)
59
60
61call 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)
67
69
70CALL export (v7d_ana,filename=
"ana.v7d",description=
"Solo anagrafica")
71
72call delete (v7d_ana)
73
75
76
77
78call l4f_category_delete(category)
80
81end program demo8
Emit log message for a category with specific priority.
Global log4fortran constructor.
Costruttore per la classe vol7d.
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