|
◆ vol7d_dballe_init()
subroutine vol7d_dballeold_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 |
|
) |
| |
|
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 del file su cui scrivere; se passato ="" ritorna il valore rielaborato |
[in] | format | the file format. 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 |
Definizione alla linea 399 del file vol7d_dballeold_class.F90.
401 CHARACTER(len=*), INTENT(in), OPTIONAL :: varkind(:) 408 CHARACTER(len=*), INTENT(in), OPTIONAL :: attrkind(:) 415 CHARACTER(len=*), INTENT(in), OPTIONAL :: anavarkind(:) 422 CHARACTER(len=*), INTENT(in), OPTIONAL :: anaattrkind(:) 423 logical, intent(in), optional :: anaonly 425 CALL import(this, (/var/), network, coordmin, coordmax, timei, timef,level,timerange, set_network,& 426 attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana) 428 END SUBROUTINE vol7d_dballe_importvsns 434 SUBROUTINE vol7d_dballe_importvsnv(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,& 435 attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana) 436 TYPE(vol7d_dballe), INTENT(inout) :: this 437 CHARACTER(len=*), INTENT(in) :: var 438 TYPE(geo_coord), INTENT(inout), optional :: coordmin,coordmax 439 TYPE(vol7d_ana), INTENT(inout), optional :: ana 440 TYPE(datetime), INTENT(in), optional :: timei, timef 441 TYPE(vol7d_network), INTENT(in) :: network(:) 442 TYPE(vol7d_network), INTENT(in), OPTIONAL :: set_network 443 TYPE(vol7d_level), INTENT(in), optional :: level 444 TYPE(vol7d_timerange), INTENT(in), optional :: timerange 445 CHARACTER(len=*), INTENT(in), OPTIONAL :: attr(:),anavar(:),anaattr(:) 446 CHARACTER(len=*), INTENT(in), OPTIONAL :: varkind(:),attrkind(:),anavarkind(:),anaattrkind(:) 447 logical, intent(in), optional :: anaonly 452 if ( size(network) == 0) then 454 CALL import(this, (/var/), coordmin=coordmin, coordmax=coordmax, timei=timei, timef=timef, level=level,& 455 timerange=timerange,set_network=set_network, attr=attr,anavar=anavar,anaattr=anaattr,& 456 varkind=varkind,attrkind=attrkind,anavarkind=anavarkind,anaattrkind=anaattrkind,anaonly=anaonly,ana=ana) 460 DO i = 1, SIZE(network) 461 CALL import(this, (/var/), network(i), coordmin, coordmax, timei, timef, level,timerange,set_network,& 462 attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana) 468 END SUBROUTINE vol7d_dballe_importvsnv 474 SUBROUTINE vol7d_dballe_importvvnv(this, var, network, coordmin,coordmax, timei, timef, level,timerange,set_network,& 475 attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana) 476 TYPE(vol7d_dballe), INTENT(inout) :: this 477 CHARACTER(len=*), INTENT(in) :: var(:) 478 TYPE(geo_coord), INTENT(inout), optional :: coordmin,coordmax 479 TYPE(vol7d_ana), INTENT(inout), optional :: ana 480 TYPE(datetime), INTENT(in), optional :: timei, timef 481 TYPE(vol7d_network), INTENT(in) :: network(:) 482 TYPE(vol7d_network), INTENT(in), OPTIONAL :: set_network 483 TYPE(vol7d_level), INTENT(in), optional :: level 484 TYPE(vol7d_timerange), INTENT(in), optional :: timerange 485 CHARACTER(len=*), INTENT(in), OPTIONAL :: attr(:),anavar(:),anaattr(:) 486 CHARACTER(len=*), INTENT(in), OPTIONAL :: varkind(:),attrkind(:),anavarkind(:),anaattrkind(:) 487 logical, intent(in), optional :: anaonly 491 if ( size(network) == 0 ) then 492 CALL import(this,var, coordmin=coordmin, coordmax=coordmax, timei=timei, timef=timef, level=level,& 493 timerange=timerange,set_network=set_network, attr=attr,anavar=anavar,anaattr=anaattr,& 494 varkind=varkind,attrkind=attrkind,anavarkind=anavarkind,anaattrkind=anaattrkind,anaonly=anaonly,ana=ana) 496 DO i = 1, SIZE(network) 497 CALL import(this, var, network(i), coordmin, coordmax, timei, timef, level,timerange,set_network,& 498 attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana) 502 END SUBROUTINE vol7d_dballe_importvvnv 508 SUBROUTINE vol7d_dballe_importvvns(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,& 509 attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana) 511 TYPE(vol7d_dballe), INTENT(inout) :: this 512 CHARACTER(len=*), INTENT(in), optional :: var(:) 513 TYPE(geo_coord), INTENT(inout), optional :: coordmin,coordmax 514 TYPE(vol7d_ana), INTENT(inout), optional :: ana 515 TYPE(datetime), INTENT(in), OPTIONAL :: timei, timef 516 TYPE(vol7d_network), INTENT(in), OPTIONAL :: network,set_network 517 TYPE(vol7d_level), INTENT(in), optional :: level 518 TYPE(vol7d_timerange), INTENT(in), optional :: timerange 519 CHARACTER(len=*), INTENT(in), OPTIONAL :: attr(:),anavar(:),anaattr(:) 520 CHARACTER(len=*), INTENT(in), OPTIONAL :: varkind(:),attrkind(:),anavarkind(:),anaattrkind(:) 521 logical, intent(in), optional :: anaonly 525 call vol7d_dballe_importvvns_file(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,& 526 attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana) 534 call vol7d_dballe_importvvns_dba(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,& 535 attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana) 539 end SUBROUTINE vol7d_dballe_importvvns 546 SUBROUTINE vol7d_dballe_importvvns_dba(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,& 547 attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana) 549 TYPE(vol7d_dballe), INTENT(inout) :: this 550 CHARACTER(len=*), INTENT(in), OPTIONAL :: var(:) 551 TYPE(geo_coord), INTENT(inout), optional :: coordmin,coordmax 552 TYPE(vol7d_ana), INTENT(inout), optional :: ana 553 TYPE(datetime), INTENT(in), OPTIONAL :: timei, timef 554 TYPE(vol7d_network), INTENT(in), OPTIONAL :: network,set_network 555 TYPE(vol7d_level), INTENT(in), optional :: level 556 TYPE(vol7d_timerange), INTENT(in), optional :: timerange 557 CHARACTER(len=*), INTENT(in), OPTIONAL :: attr(:),anavar(:),anaattr(:) 558 CHARACTER(len=*), INTENT(in), OPTIONAL :: varkind(:),attrkind(:),anavarkind(:),anaattrkind(:) 559 logical, intent(in), optional :: anaonly 561 TYPE(vol7d_network) :: lnetwork 562 TYPE(vol7d_level) :: llevel 563 TYPE(vol7d_timerange) :: ltimerange 565 INTEGER, PARAMETER :: maxvarlist=100 570 CHARACTER(len=maxvarlist*7) :: varlist 571 CHARACTER(len=maxvarlist*8) :: starvarlist 572 CHARACTER(len=6) :: btable 573 CHARACTER(len=7) ::starbtable 575 LOGICAL :: ldegnet, lattr, lanaattr
|