|
◆ vol7d_dballe_init()
subroutine vol7d_dballe_class::vol7d_dballe_init |
( |
type(vol7d_dballe), intent(out) |
this, |
|
|
character(len=*), intent(in), optional |
dsn, |
|
|
character(len=*), intent(in), optional |
user, |
|
|
character(len=*), intent(in), optional |
password, |
|
|
logical, intent(in), optional |
write, |
|
|
logical, intent(in), optional |
wipe, |
|
|
character(len=*), intent(in), optional |
repinfo, |
|
|
character(len=*), intent(inout), optional |
filename, |
|
|
character(len=*), intent(in), optional |
format, |
|
|
logical, intent(in), optional |
file, |
|
|
character(len=*), intent(in), optional |
categoryappend, |
|
|
integer, intent(in), optional |
time_definition, |
|
|
integer, intent(in), optional |
idbhandle, |
|
|
character(len=*), intent(in), optional |
template |
|
) |
| |
|
private |
inizializza l'oggetto
- Parametri
-
[out] | this | l'oggetto da inizializzare |
[in] | dsn | per l'accesso al DSN ( default="test" ) |
[in] | user | per l'accesso al DSN ( default="test" ) |
[in] | password | per l'accesso al DSN ( default="" ) |
[in] | write | abilita la scrittura sul DSN/file ( default=.false. ) |
[in] | wipe | svuota il DSN/file e/o lo prepara per una scrittura ( default=.false. ) |
[in] | repinfo | eventuale file repinfo.csv usato con wipe ( default="" ) |
[in,out] | filename | nome dell'eventuale file da utilizzare in alternativa a dsn when file is true; se passato ="" ritorna un valore di deafult elaborato |
[in] | format | the file format when file is true. It can be "BUFR", "CREX" or "JSON" (default="BUFR") |
[in] | file | switch to use file or data base ( default=.false ) |
[in] | categoryappend | appennde questo suffisso al namespace category di log4fortran |
[in] | time_definition | 0=time is reference time ; 1=time is validity time (default=1) |
[in] | idbhandle | dsn connection; if present it will be used |
[in] | template | specificando category.subcategory.localcategory oppure un alias ("synop", "metar","temp","generic") forza l'exportazione ad uno specifico template BUFR/CREX"
the special value "generic-frag is used to generate bufr on file where ana data is reported only once at beginning and data in other bufr after |
[in] | template | default template to use exporting to file; can be overwritten by export |
Definizione alla linea 356 del file vol7d_dballe_class.F03.
379 if ( present(var)) then
382 allocate (vars%dcv(nvar))
385 if ( present(varkind)) then
386 select case (varkind(i))
388 allocate (vars%dcv(i)%dat,source=dbadatar(var(i)))
390 allocate (vars%dcv(i)%dat,source=dbadatai(var(i)))
392 allocate (vars%dcv(i)%dat,source=dbadatab(var(i)))
394 allocate (vars%dcv(i)%dat,source=dbadatad(var(i)))
396 allocate (vars%dcv(i)%dat,source=dbadatac(var(i)))
398 call l4f_category_log(this%category,l4f_error, "var and varkind mismach")
399 CALL raise_fatal_error()
402 allocate (vars%dcv(i)%dat,source=dbadatac(var(i)))
409 if ( present(anavar)) then
410 nanavar=count(c_e(anavar))
411 if (nanavar > 0) then
412 allocate (anavars%dcv(nanavar))
414 if (c_e(anavar(i))) then
415 if ( present(anavarkind)) then
416 select case (anavarkind(i))
418 allocate (anavars%dcv(i)%dat,source=dbadatar(anavar(i)))
420 allocate (anavars%dcv(i)%dat,source=dbadatai(anavar(i)))
422 allocate (anavars%dcv(i)%dat,source=dbadatab(anavar(i)))
424 allocate (anavars%dcv(i)%dat,source=dbadatad(anavar(i)))
426 allocate (anavars%dcv(i)%dat,source=dbadatac(anavar(i)))
428 call l4f_category_log(this%category,l4f_error, "anavar and anavarkind mismach")
429 CALL raise_fatal_error()
432 allocate (anavars%dcv(i)%dat,source=dbadatac(anavar(i)))
439 if ( present(attr)) then
442 allocate (starvars%dcv(nattr))
444 nattr=count(c_e(attr))
446 allocate (starvars%dcv(nattr))
448 if (c_e(attr(i))) then
|