Sample program to demostrate the alchimia module with volgrid6d.
6 USE volgrid6d_alchimia_class
11 type(fndsv) :: vfn, vfnoracle
12 character(len=10),
allocatable:: mybout(:)
13 type(volgrid6d),
pointer :: myin(:),myout(:)
15 character(len=255) :: filenamein,filenameout
17 integer :: category,ier
18 character(len=512):: a_name
21 call l4f_launcher(a_name)
27 category=l4f_category_get(a_name)
31 mybout = [
character(len=10) ::
"B12192"]
32 filenamein=
"../data/t_p.grb" 33 filenameout=
"../data/tp.grb" 35 call register_termo(vfn)
37 CALL import(myin,filename=filenamein,decode=.true., time_definition=0, categoryappend=
"input")
41 if (alchemy(myin,vfn,mybout,myout,copy=.true.,vfnoracle=vfnoracle) /= 0)
then 42 print*,
"I cannot make ",mybout
44 if (.not. shoppinglist(mybout,vfn,vfnoracle))
then 45 print*,
" error shoppinglist" 48 call display(compile_sl(vfnoracle))
55 call export(myout,filenameout)
62 call l4f_category_delete(category)
65 end program alchimiavg6d