libsim  Versione6.3.0

◆ 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]thisoggetto vol7d_dballe
[in]varvariabile da importare secondo la tabella B locale o relativi alias
[in,out]coordmincoordinate minime e massime che definiscono il rettangolo di estrazione per l'importazione
[in,out]coordmaxcoordinate minime e massime che definiscono il rettangolo di estrazione per l'importazione
[in,out]anastation coordinate for selected extraction
[in]timeiestremi temporali (inizio e fine) dell'estrazione per l'importazione
[in]timefestremi temporali (inizio e fine) dell'estrazione per l'importazione
[in]networknetwork da importare
[in]set_networkestrae i dati migliori disponibili "mergiandoli" in un'unica rete definita da questo parametro: ANCORA DA TESTARE !!!!
[in]levellivello selezionato per l'estrazione
[in]timerangetimerange selezionato per l'importazione
[in]attrvariabili da importare secondo la tabella B locale o relativi alias relative ad attributi
[in]anavarvariabili da importare secondo la tabella B locale o relativi alias relative ad anagrafica
[in]anaattrvariabili da importare secondo la tabella B locale o relativi alias relative a attributi dell'anagrafica
[in]varkindtipi per le variabili da importare relative a dati:
  • "r" = real
  • "i" = integer
  • "b" = byte
  • "d" = double precision
  • "c" = character
[in]attrkindtipi per le variabili da importare relative a attributi:
  • "r" = real
  • "i" = integer
  • "b" = byte
  • "d" = double precision
  • "c" = character
[in]anavarkindtipi per le variabili da importare relative a anagrafica:
  • "r" = real
  • "i" = integer
  • "b" = byte
  • "d" = double precision
  • "c" = character
[in]anaattrkindtipi per le variabili da importare relative a attributi dell'anagrafica:
  • "r" = real
  • "i" = integer
  • "b" = byte
  • "d" = double precision
  • "c" = character
[in]anaonlyextract 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
589 
590 INTEGER(kind=int_l) :: ilat,ilon
591 CHARACTER(len=vol7d_ana_lenident) :: ident
592 CHARACTER(len=10),allocatable :: lvar(:), lanavar(:)
593 !INTEGER(kind=int_b)::attrdatib
594 
595 integer :: ndativarr, ndativari, ndativarb, ndativard, ndativarc
596 integer :: ndatiattrr, ndatiattri, ndatiattrb, ndatiattrd, ndatiattrc
597 integer :: ndativarattrr, ndativarattri, ndativarattrb, ndativarattrd, ndativarattrc
598 
599 integer :: nanavarr, nanavari, nanavarb, nanavard, nanavarc
600 integer :: nanaattrr, nanaattri, nanaattrb, nanaattrd, nanaattrc
601 integer :: nanavarattrr, nanavarattri, nanavarattrb, nanavarattrd, nanavarattrc
602 
603 integer :: ir,ib,id,ic,ier
604 
605 
606 !TYPE(datetime) :: odatetime
607 ! nobs, ntime, nana, nvout, nvin, nvbt, &
608 ! datai(3), orai(2), dataf(3), oraf(2),ist
609 !CHARACTER(len=12),ALLOCATABLE :: tmtmp(:)
610 !INTEGER,ALLOCATABLE :: anatmp(:), vartmp(:), mapdatao(:)
611 !LOGICAL :: found, non_valid, varbt_req(SIZE(vartable))
612 
613 TYPE(vol7d) :: vol7dtmp
614 
615 type(record),ALLOCATABLE :: buffer(:),bufferana(:)
616 
617 !!! CALL print_info('Estratte dall''archivio '//TRIM(to_char(nobs)) // ' osservazioni')
618 
619 #ifdef DEBUG
620 CALL l4f_category_log(this%category,l4f_debug,'inizio')
621 #endif
622 
623 IF (PRESENT(set_network)) THEN
624  if (c_e(set_network)) then
625  ldegnet = .true.
626  else
627  ldegnet = .false.
628  end if
629 ELSE
630  ldegnet = .false.
631 ENDIF
632 
633 IF (PRESENT(attr)) THEN
634  if (any(c_e(attr)).and. size(attr) > 0)then
635 #ifdef DEBUG
636  CALL l4f_category_log(this%category,l4f_debug,'lattr true')
637 #endif
638  lattr = .true.
639  else
640 #ifdef DEBUG

Generated with Doxygen.