Programma trasformazione da volgrid6d a vol7d.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18program demo6
19
26
27implicit none
28
29integer :: category,ier,i,nana
30character(len=512):: a_name,filename="out.bufr"
31type (volgrid6d),pointer :: volgrid(:),volgrid_out(:)
32type(transform_def) :: trans
33type(vol7d) :: v7d
34type(vol7d) :: vol7d_out
35TYPE(vol7d_dballe) :: v7d_exp
36
37
38
39call l4f_launcher(a_name,a_name_force="demo6")
40
41
43
44
45category=l4f_category_get(a_name//".main")
46
48
49
50
51
52
53
54
55
56
57
59
60call import (v7d,filename="ana.v7d")
61
63
64
65call init(trans, trans_type=
"inter",sub_type=
"bilin", categoryappend=
"trasformation")
66
67call import (volgrid,filename="in.grb",categoryappend="volume letto")
68
69call
transform(trans, volgrid6d_in=volgrid, vol7d_out=vol7d_out, v7d=v7d, categoryappend=
"trasforma")
70
72
73if (
associated(volgrid))
call delete(volgrid)
74
76
77
78
79CALL init(v7d_exp,file=.true.,write=.true.,wipe=.true.,filename=filename,&
80categoryappend="exportBUFR",format="BUFR",template="synop")
81
83v7d_exp%vol7d = vol7d_out
85
87
89
90
91CALL l4f_category_delete(category)
93
94end program demo6
Destructors of the corresponding objects.
Print a brief description on stdout.
Export griddim object to grid_id.
Constructors of the corresponding objects.
Emit log message for a category with specific priority.
Global log4fortran constructor.
Module for describing geographically referenced regular grids.
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
This module defines objects and methods for managing data volumes on rectangular georeferenced grids.