Sample program to demostrate the alchimia module with vol7d.
7 USE vol7d_alchimia_class
12 type(fndsv) :: vfn,vfnoracle
13 character(len=10),
allocatable:: mybout(:)
14 type(vol7d_dballe) :: 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/example_temp.bufr" 33 filenameout=
"../data/tp.bufr" 35 call register_termo(vfn)
37 call init(myin,filename=filenamein, file=.true., categoryappend=
"input")
38 call init(myout,filename=filenameout, file=.true., write=.true., wipe=.true., categoryappend=
"output",template=
"generic")
45 if (alchemy(myin%vol7d,vfn,mybout,myout%vol7d,
copy=.true.,vfnoracle=vfnoracle) /= 0 )
then 46 print*,
"I cannot make ",mybout
48 if (.not. shoppinglist(mybout,vfn,vfnoracle))
then 49 print*,
" error shoppinglist" 52 call display(compile_sl(vfnoracle))
66 call l4f_category_delete(category)
69 end program alchimiav7d