|
◆ vol7d_dballe_importvsns()
subroutine vol7d_dballeold_class::vol7d_dballe_importvsns |
( |
type(vol7d_dballe), intent(inout) |
this, |
|
|
character(len=*), intent(in) |
var, |
|
|
type(vol7d_network), intent(in), optional |
network, |
|
|
type(geo_coord), intent(inout), optional |
coordmin, |
|
|
type(geo_coord), intent(inout), optional |
coordmax, |
|
|
type(datetime), intent(in), optional |
timei, |
|
|
type(datetime), intent(in), optional |
timef, |
|
|
type(vol7d_level), intent(in), optional |
level, |
|
|
type(vol7d_timerange), intent(in), optional |
timerange, |
|
|
type(vol7d_network), intent(in), optional |
set_network, |
|
|
character(len=*), dimension(:), intent(in), optional |
attr, |
|
|
character(len=*), dimension(:), intent(in), optional |
anavar, |
|
|
character(len=*), dimension(:), intent(in), optional |
anaattr, |
|
|
character(len=*), dimension(:), intent(in), optional |
varkind, |
|
|
character(len=*), dimension(:), intent(in), optional |
attrkind, |
|
|
character(len=*), dimension(:), intent(in), optional |
anavarkind, |
|
|
character(len=*), dimension(:), intent(in), optional |
anaattrkind, |
|
|
logical, intent(in), optional |
anaonly, |
|
|
type(vol7d_ana), intent(inout), optional |
ana |
|
) |
| |
|
private |
Importa un volume dati da un DSN DB-all.e.
import da DB-all.e: var e network sono scalari.
- Parametri
-
[in,out] | this | oggetto vol7d_dballe |
[in] | var | variabile da importare secondo la tabella B locale o relativi alias |
[in,out] | coordmin | coordinate minime e massime che definiscono il rettangolo di estrazione per l'importazione |
[in,out] | coordmax | coordinate minime e massime che definiscono il rettangolo di estrazione per l'importazione |
[in,out] | ana | station coordinate for selected extraction |
[in] | timei | estremi temporali (inizio e fine) dell'estrazione per l'importazione |
[in] | timef | estremi temporali (inizio e fine) dell'estrazione per l'importazione |
[in] | network | network da importare |
[in] | set_network | estrae i dati migliori disponibili "mergiandoli" in un'unica rete definita da questo parametro: ANCORA DA TESTARE !!!! |
[in] | level | livello selezionato per l'estrazione |
[in] | timerange | timerange selezionato per l'importazione |
[in] | attr | variabili da importare secondo la tabella B locale o relativi alias relative ad attributi |
[in] | anavar | variabili da importare secondo la tabella B locale o relativi alias relative ad anagrafica |
[in] | anaattr | variabili da importare secondo la tabella B locale o relativi alias relative a attributi dell'anagrafica |
[in] | varkind | tipi per le variabili da importare relative a dati:
- "r" = real
- "i" = integer
- "b" = byte
- "d" = double precision
- "c" = character
|
[in] | attrkind | tipi per le variabili da importare relative a attributi:
- "r" = real
- "i" = integer
- "b" = byte
- "d" = double precision
- "c" = character
|
[in] | anavarkind | tipi per le variabili da importare relative a anagrafica:
- "r" = real
- "i" = integer
- "b" = byte
- "d" = double precision
- "c" = character
|
[in] | anaattrkind | tipi per le variabili da importare relative a attributi dell'anagrafica:
- "r" = real
- "i" = integer
- "b" = byte
- "d" = double precision
- "c" = character
|
[in] | anaonly | extract all ana data but only that |
Definizione alla linea 586 del file vol7d_dballeold_class.F90.
586 INTEGER :: i,ii, iii,n,n_ana,nn,nvarattr,istat,indattr 587 integer :: nvar ,inddatiattr,inddativarattr 588 integer :: nanavar ,indanavar,indanaattr,indanavarattr,nanavarattr 590 INTEGER(kind=int_l) :: ilat,ilon 591 CHARACTER(len=vol7d_ana_lenident) :: ident 592 CHARACTER(len=10), allocatable :: lvar(:), lanavar(:) 595 integer :: ndativarr, ndativari, ndativarb, ndativard, ndativarc 596 integer :: ndatiattrr, ndatiattri, ndatiattrb, ndatiattrd, ndatiattrc 597 integer :: ndativarattrr, ndativarattri, ndativarattrb, ndativarattrd, ndativarattrc 599 integer :: nanavarr, nanavari, nanavarb, nanavard, nanavarc 600 integer :: nanaattrr, nanaattri, nanaattrb, nanaattrd, nanaattrc 601 integer :: nanavarattrr, nanavarattri, nanavarattrb, nanavarattrd, nanavarattrc 603 integer :: ir,ib,id,ic,ier 613 TYPE(vol7d) :: vol7dtmp 615 type(record), ALLOCATABLE :: buffer(:),bufferana(:) 620 CALL l4f_category_log(this%category,l4f_debug, 'inizio') 623 IF ( PRESENT(set_network)) THEN 624 if ( c_e(set_network)) then 633 IF ( PRESENT(attr)) THEN 634 if (any( c_e(attr)).and. size(attr) > 0) then 636 CALL l4f_category_log(this%category,l4f_debug, 'lattr true')
|