libsim Versione 7.2.1
example_alchimiav7d.f03

Sample program to demostrate the alchimia module with vol7d.

Sample program to demostrate the alchimia module with vol7d.

1program alchimiav7d
2
3USE alchimia
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!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/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!CALL import(myin,var=(/"B12101","B10004"/),varkind=(/"r","r"/))
41CALL import(myin)
42
43call display(myin%vol7d)
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
57call display(vfnoracle)
58
59call display(myout%vol7d)
60call export(myout)
61
62call delete(myout)
63call delete(myin)
64
65!chiudo il logger
66call l4f_category_delete(category)
67ier=l4f_fini()
68
69end program alchimiav7d
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.
Scrittura su file.
Lettura da file.
This module defines objects and methods for generating derivative variables.
Definition alchimia.F03:214
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.

Generated with Doxygen.