libsim  Versione6.3.0

◆ vol7d_dballe_importvvnv()

subroutine vol7d_dballe_class::vol7d_dballe_importvvnv ( type(vol7d_dballe), intent(inout)  this,
character(len=*), dimension(:), intent(in)  var,
type(vol7d_network), dimension(:), intent(in)  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,
logical, intent(in), optional  dataonly,
type(vol7d_ana), intent(inout), optional  ana 
)
private

Identica a vol7d_dballe_importvsns con var e network vettore.

import da DB-all.e

Parametri
[in,out]thisoggetto vol7d_dballe

Definizione alla linea 468 del file vol7d_dballe_class.F03.

468 if (present(anaattr)) then
469  nanaattr=size(anaattr)
470  if (nanaattr == 0) then
471  allocate (anastarvars%dcv(nanaattr))
472  else
473  nanaattr=count(c_e(anaattr))
474  if (nanaattr > 0) then
475  allocate (anastarvars%dcv(nanaattr))
476  do i=1,size(anaattr)
477  if (c_e(anaattr(i)))then
478  if (present(anaattrkind))then
479  select case (anaattrkind(i))
480  case("r")
481  allocate (anastarvars%dcv(i)%dat,source=dbadatar(anaattr(i)))
482  case("i")
483  allocate (anastarvars%dcv(i)%dat,source=dbadatai(anaattr(i)))
484  case("b")
485  allocate (anastarvars%dcv(i)%dat,source=dbadatab(anaattr(i)))
486  case("d")
487  allocate (anastarvars%dcv(i)%dat,source=dbadatad(anaattr(i)))
488  case("c")
489  allocate (anastarvars%dcv(i)%dat,source=dbadatac(anaattr(i)))
490  case default
491  call l4f_category_log(this%category,l4f_error,"attr and attrkind mismach")
492  CALL raise_fatal_error()
493  end select
494  else
495  allocate (anastarvars%dcv(i)%dat,source=dbadatac(anaattr(i))) !char is default
496  end if
497  end if
498  end do
499  end if
500  end if
501 end if

Generated with Doxygen.