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(:)
32 type(transform_def) :: trans
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)