Sample program to demostrate the alchimia module with vol7d.
Sample program to demostrate the alchimia module with vol7d.
1program alchimiav7d
2
4USE termo
7USE vol7d_alchimia_class
10
11IMPLICIT NONE
12type(fndsv) :: vfn,vfnoracle
13character(len=10), allocatable:: mybout(:)
14type(vol7d_dballe) :: myin,myout
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/example_temp.bufr"
33filenameout="../data/tp.bufr"
34
35call register_termo(vfn)
36
37call init(myin,filename=filenamein, file=.true., categoryappend="input")
38call init(myout,filename=filenameout, file=.true., write=.true., wipe=.true., categoryappend="output",template="generic")
39
40
42
44
45if (alchemy(myin%vol7d,vfn,mybout,myout%vol7d,
copy=.true.,vfnoracle=vfnoracle) /= 0 )
then
46 print*, "I cannot make ",mybout
47
48 if (.not. shoppinglist(mybout,vfn,vfnoracle)) then
49 print*, " error shoppinglist"
50 stop 2
51 else
52 call display(compile_sl(vfnoracle))
53 stop 3
54 end if
55end if
56
58
61
64
65
66call l4f_category_delete(category)
68
69end program alchimiav7d
show on the screen the fnds and fndsv structure
Emit log message for a category with specific priority.
Global log4fortran constructor.
This module defines objects and methods for generating derivative variables.
classe per la gestione del logging
Classe per la gestione di un volume completo di dati osservati.
classe per import ed export di volumi da e in DB-All.e
Classe per la gestione delle variabili osservate da stazioni meteo e affini.