26 TYPE(vol7d_dballe) :: v7d
27 TYPE(datetime) :: ti, tf
28 TYPE(vol7d_network):: network
29 CHARACTER(len=12) :: c
31 REAL,
POINTER :: vol2d(:,:)
34 CALL init(ti, year=2007, month=3, day=18, hour=12)
35 CALL init(tf, year=2007, month=3, day=21, hour=00)
36 call init(network,name=
'generic')
42 CALL import(v7d, var=(/
'B13011'/),set_network=network,varkind=(/
"r"/), attr=(/
"*B33192",
"*B33007"/))
45 print *,v7d%vol7d%dativar%r
46 print *,v7d%vol7d%datiattr%c
51 CALL vol7d_get_voldatir(v7d%vol7d, (/vol7d_ana_d,vol7d_time_d/), vol2dp=vol2d)
53 DO i = 1,
SIZE(v7d%vol7d%time)
54 CALL getval(v7d%vol7d%time(i), simpledate=c)
55 n = count(vol2d(:,i) /= rmiss)
57 print*, c,
' prec. media:', sum(vol2d(:,i), mask=(vol2d(:,i) /= rmiss))/n,n
Distruttori per le 2 classi.
Restituiscono il valore dell'oggetto nella forma desiderata.
Costruttori per le classi datetime e timedelta.
Classi per la gestione delle coordinate temporali.
Classe per la gestione di un volume completo di dati osservati.
classe per import ed export di volumi da e in DB-All.e