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
show on the screen the fnds and fndsv structure
Emit log message for a category with specific priority.
Global log4fortran constructor.
Export an object dirctly to a native file, to a gridinfo object or to a supported file format through...
Import an object dirctly from a native file, from a gridinfo object or from a supported file format t...
This module defines objects and methods for generating derivative variables.
classe per la gestione del logging
This module defines objects and methods for managing data volumes on rectangular georeferenced grids.