libsim Versione 7.1.11
example_vg6d_8.f90

Programma scrittura su file vettore di anagrafica.

Programma scrittura su file vettore di anagrafica

1! Copyright (C) 2010 ARPA-SIM <urpsim@smr.arpa.emr.it>
2! authors:
3! Davide Cesari <dcesari@arpa.emr.it>
4! Paolo Patruno <ppatruno@arpa.emr.it>
5
6! This program is free software; you can redistribute it and/or
7! modify it under the terms of the GNU General Public License as
8! published by the Free Software Foundation; either version 2 of
9! the License, or (at your option) any later version.
10
11! This program is distributed in the hope that it will be useful,
12! but WITHOUT ANY WARRANTY; without even the implied warranty of
13! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14! GNU General Public License for more details.
15
16! You should have received a copy of the GNU General Public License
17! along with this program. If not, see <http://www.gnu.org/licenses/>.
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!questa chiamata prende dal launcher il nome univoco
32call l4f_launcher(a_name,a_name_force="demo8")
33
34!init di log4fortran
35ier=l4f_init()
36
37!imposta a_name
38category=l4f_category_get(a_name//".main")
39
40call l4f_category_log(category,l4f_info,"inizio")
41
42! Chiamo il costruttore della classe vol7d_dballe per il mio oggetto in import
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
48call l4f_category_log(category,l4f_info,"importato vol7d")
49
50call display(v7d_dba%vol7d)
51
52call l4f_category_log(category,l4f_info,"export to ana file")
53
54call init (v7d_ana)
55
56call vol7d_copy (v7d_dba%vol7d,v7d_ana)
57
58call delete (v7d_dba)
59
60!pulisco i dati che a me sono inutili
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
68call display(v7d_ana)
69
70CALL export (v7d_ana,filename="ana.v7d",description="Solo anagrafica")
71
72call delete (v7d_ana)
73
74call l4f_category_log(category,l4f_info,"terminato")
75
76
77!chiudo il logger
78call l4f_category_delete(category)
79ier=l4f_fini()
80
81end program demo8
Emit log message for a category with specific priority.
log4fortran destructor
Global log4fortran constructor.
Scrittura su file.
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

Generated with Doxygen.