Programma trasformazione da volgrid6d a vol7d
29 integer :: category,ier,i,nana
30 character(len=512):: a_name,filename=
"out.bufr"
31 type (volgrid6d),
pointer :: volgrid(:),volgrid_out(:)
34 type(vol7d) :: vol7d_out
39 call l4f_launcher(a_name,a_name_force=
"demo6")
45 category=l4f_category_get(a_name//
".main")
60 call
import(v7d,filename=
"ana.v7d")
65 call
init(trans, trans_type=
"inter",sub_type=
"bilin", categoryappend=
"trasformation")
67 call
import(volgrid,filename=
"in.grb",categoryappend=
"volume letto")
69 call
transform(trans, volgrid6d_in=volgrid, vol7d_out=vol7d_out, v7d=v7d, categoryappend=
"trasforma")
73 if (
associated(volgrid)) call
delete(volgrid)
79 CALL
init(v7d_exp,file=.true.,write=.true.,wipe=.true.,filename=filename,&
80 categoryappend=
"exportBUFR",format=
"BUFR",template=
"synop")
83 v7d_exp%vol7d = vol7d_out
91 CALL l4f_category_delete(category)