Programma trasformazione da volgrid6d a volgrid6d.
Legge grib da un file e li organizza in un vettore di strutture volgrid6d mettendoli a disposizione per eventuali elaborazioni; vengono poi riesportati a un file grib
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18program demo5
19
21use grib_api
26implicit none
27
28integer :: category,ier,gaid_template
29integer :: i,j
30character(len=512):: a_name
31type (volgrid6d),pointer :: volgrid(:),volgrid_out(:)
32type(transform_def) :: trans
33
34
35call l4f_launcher(a_name,a_name_force="demo5")
36
37
39
40
41category=l4f_category_get(a_name//".main")
42
44
45call import (volgrid,filename="../data/in.grb",categoryappend="volume letto")
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83call
init(trans, trans_type=
"zoom",sub_type=
"coord", &
84 ilon=-10.d0,ilat=40.d0,flon=10.d0,flat=50.d0,&
85 categoryappend="trasformation")
86
87
88call transform(trans, volgrid6d_in=volgrid, volgrid6d_out=volgrid_out,clone=.true.,categoryappend=
"trasforma")
89
90call display(volgrid_out(1)%griddim)
91
93
94if (
associated(volgrid))
call delete(volgrid)
95
96
97
99
100
101call export (volgrid_out,filename=
"out.grb",categoryappend=
"exportazione")
102
104
105if (
associated(volgrid_out))
call delete(volgrid_out)
106
107
108call l4f_category_delete(category)
110
111end program demo5
Destructor for the line_split class.
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.
Utilities for CHARACTER variables.
Module for describing geographically referenced regular grids.
classe per la gestione del logging
This module defines objects and methods for managing data volumes on rectangular georeferenced grids.