libsim  Versione 7.2.6

◆ vol7d_dballe_importvvnv()

subroutine 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 
)

Identica a vol7d_dballe_importvsns con var e network vettore.

import da DB-all.e

Parametri
[in,out]thisoggetto vol7d_dballe

Definizione alla linea 457 del file vol7d_dballe_class.F03.

459  case("c")
460  allocate (starvars%dcv(i)%dat,source=dbadatac(attr(i)))
461  case default
462  call l4f_category_log(this%category,l4f_error,"attr and attrkind mismach")
463  CALL raise_fatal_error()
464  end select
465  else
466  allocate (starvars%dcv(i)%dat,source=dbadatac(attr(i))) !char is default
467  end if
468  end if
469  end do
470  end if
471  endif
472 end if
473 
474 if (present(anaattr)) then
475  nanaattr=size(anaattr)
476  if (nanaattr == 0) then
477  allocate (anastarvars%dcv(nanaattr))
478  else
479  nanaattr=count(c_e(anaattr))
480  if (nanaattr > 0) then
481  allocate (anastarvars%dcv(nanaattr))
482  do i=1,size(anaattr)
483  if (c_e(anaattr(i)))then
484  if (present(anaattrkind))then
485  select case (anaattrkind(i))
486  case("r")
487  allocate (anastarvars%dcv(i)%dat,source=dbadatar(anaattr(i)))
488  case("i")
489  allocate (anastarvars%dcv(i)%dat,source=dbadatai(anaattr(i)))
490  case("b")
491  allocate (anastarvars%dcv(i)%dat,source=dbadatab(anaattr(i)))
492  case("d")

Generated with Doxygen.