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
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.