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
28 integer :: category,ier,gaid_template
30 character(len=512):: a_name
31 type (volgrid6d),
pointer :: volgrid(:),volgrid_out(:)
35 call l4f_launcher(a_name,a_name_force=
"demo5")
41 category=l4f_category_get(a_name//
".main")
45 call
import(volgrid,filename=
"../data/in.grb",categoryappend=
"volume letto")
83 call
init(trans, trans_type=
"zoom",sub_type=
"coord", &
84 ilon=-10.d0,ilat=40.d0,flon=10.d0,flat=50.d0,&
85 categoryappend=
"trasformation")
88 call
transform(trans, volgrid6d_in=volgrid, volgrid6d_out=volgrid_out,clone=.true.,categoryappend=
"trasforma")
90 call
display(volgrid_out(1)%griddim)
94 if (
associated(volgrid)) call
delete(volgrid)
101 call
export(volgrid_out,filename=
"out.grb",categoryappend=
"exportazione")
105 if (
associated(volgrid_out)) call
delete(volgrid_out)
108 call l4f_category_delete(category)