libsim Versione 7.2.6
example_alchimiavg6d.f03

Sample program to demostrate the alchimia module with volgrid6d.

Sample program to demostrate the alchimia module with volgrid6d.

1program alchimiavg6d
2
3USE alchimia
4USE termo
6USE volgrid6d_alchimia_class
8
9IMPLICIT NONE
10
11type(fndsv) :: vfn, vfnoracle
12character(len=10), allocatable:: mybout(:)
13type(volgrid6d),pointer :: myin(:),myout(:)
14
15character(len=255) :: filenamein,filenameout
16
17integer :: category,ier
18character(len=512):: a_name
19
20!questa chiamata prende dal launcher il nome univoco
21call l4f_launcher(a_name)
22
23!init di log4fortran
24ier=l4f_init()
25
26!imposta a_name
27category=l4f_category_get(a_name)
28
29call l4f_category_log(category,l4f_info,"Start")
30
31mybout = [character(len=10) :: "B12192"]
32filenamein="../data/t_p.grb"
33filenameout="../data/tp.grb"
34
35call register_termo(vfn)
36
37CALL import(myin,filename=filenamein,decode=.true., time_definition=0, categoryappend="input")
38
39call display(myin)
40
41if (alchemy(myin,vfn,mybout,myout,copy=.true.,vfnoracle=vfnoracle) /= 0) then
42 print*, "I cannot make ",mybout
43
44 if (.not. shoppinglist(mybout,vfn,vfnoracle)) then
45 print*, " error shoppinglist"
46 stop 2
47 else
48 call display(compile_sl(vfnoracle))
49 stop 3
50 end if
51end if
52
53call display(vfnoracle)
54
55call export(myout,filenameout)
56call display(myout)
57
58call delete(myout)
59call delete(myin)
60
61!chiudo il logger
62call l4f_category_delete(category)
63ier=l4f_fini()
64
65end program alchimiavg6d
Delete fndsv.
Definition alchimia.F03:283
show on the screen the fnds and fndsv structure
Definition alchimia.F03:278
Emit log message for a category with specific priority.
log4fortran destructor
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.
Definition alchimia.F03:214
classe per la gestione del logging
This module defines objects and methods for managing data volumes on rectangular georeferenced grids.

Generated with Doxygen.