1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18PROGRAM v7ddballe
19
23
24IMPLICIT NONE
25
26TYPE(vol7d_dballe) :: v7d
27TYPE(datetime) :: ti, tf
28TYPE(vol7d_network):: network
29CHARACTER(len=12) :: c
30INTEGER :: i, n
31REAL, POINTER :: vol2d(:,:)
32
33
34CALL init(ti, year=2007, month=3, day=18, hour=12)
35CALL init(tf, year=2007, month=3, day=21, hour=00)
36call init(network,name=
'generic')
37
38
40
41
42CALL import(v7d, var=(/
'B13011'/),set_network=network,varkind=(/
"r"/), attr=(/
"*B33192",
"*B33007"/))
43
44
45print *,v7d%vol7d%dativar%r
46print *,v7d%vol7d%datiattr%c
47
48
49
50
51CALL vol7d_get_voldatir(v7d%vol7d, (/vol7d_ana_d,vol7d_time_d/), vol2dp=vol2d)
52
53DO i = 1, SIZE(v7d%vol7d%time)
54 CALL getval(v7d%vol7d%time(i), simpledate=c)
55 n = count(vol2d(:,i) /= rmiss)
56 IF (n > 0) THEN
57 print*, c, ' prec. media:', sum(vol2d(:,i), mask=(vol2d(:,i) /= rmiss))/n,n
58
59
60 ENDIF
61ENDDO
62
64
65END PROGRAM v7ddballe
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