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(:)
32 type(transform_def) :: trans
34 type(vol7d) :: vol7d_out
35 TYPE(vol7d_dballe) :: v7d_exp
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)