|
◆ vol7d_dballe_init()
subroutine 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 |
|
) |
| |
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" or "CREX". (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 373 del file vol7d_dballe_class.F03.
373 if ( present(var)) then 376 allocate (vars%dcv(nvar)) 379 if ( present(varkind)) then 380 select case (varkind(i)) 382 allocate (vars%dcv(i)%dat,source=dbadatar(var(i))) 384 allocate (vars%dcv(i)%dat,source=dbadatai(var(i))) 386 allocate (vars%dcv(i)%dat,source=dbadatab(var(i))) 388 allocate (vars%dcv(i)%dat,source=dbadatad(var(i))) 390 allocate (vars%dcv(i)%dat,source=dbadatac(var(i))) 392 call l4f_category_log(this%category,l4f_error, "var and varkind mismach") 393 CALL raise_fatal_error() 396 allocate (vars%dcv(i)%dat,source=dbadatac(var(i))) 403 if ( present(anavar)) then 404 nanavar=count( c_e(anavar)) 405 if (nanavar > 0) then 406 allocate (anavars%dcv(nanavar)) 408 if ( c_e(anavar(i))) then 409 if ( present(anavarkind)) then 410 select case (anavarkind(i)) 412 allocate (anavars%dcv(i)%dat,source=dbadatar(anavar(i))) 414 allocate (anavars%dcv(i)%dat,source=dbadatai(anavar(i))) 416 allocate (anavars%dcv(i)%dat,source=dbadatab(anavar(i))) 418 allocate (anavars%dcv(i)%dat,source=dbadatad(anavar(i))) 420 allocate (anavars%dcv(i)%dat,source=dbadatac(anavar(i))) 422 call l4f_category_log(this%category,l4f_error, "anavar and anavarkind mismach") 423 CALL raise_fatal_error() 426 allocate (anavars%dcv(i)%dat,source=dbadatac(anavar(i))) 433 if ( present(attr)) then 436 allocate (starvars%dcv(nattr)) 438 nattr=count( c_e(attr)) 440 allocate (starvars%dcv(nattr)) 442 if ( c_e(attr(i))) then 443 if ( present(attrkind)) then 444 select case (attrkind(i)) 446 allocate (starvars%dcv(i)%dat,source=dbadatar(attr(i))) 448 allocate (starvars%dcv(i)%dat,source=dbadatai(attr(i))) 450 allocate (starvars%dcv(i)%dat,source=dbadatab(attr(i))) 452 allocate (starvars%dcv(i)%dat,source=dbadatad(attr(i))) 454 allocate (starvars%dcv(i)%dat,source=dbadatac(attr(i))) 456 call l4f_category_log(this%category,l4f_error, "attr and attrkind mismach") 457 CALL raise_fatal_error()
|