Sample program to demostrate the alchimia module with volgrid6d.
Sample program to demostrate the alchimia module with volgrid6d.
1program alchimiavg6d
2
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
21call l4f_launcher(a_name)
22
23
25
26
27category=l4f_category_get(a_name)
28
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
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
54
55call export(myout,filenameout)
57
60
61
62call l4f_category_delete(category)
64
65end 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.