libsim  Versione6.3.0

◆ vol7d_dballe_importvsnv()

subroutine vol7d_dballeold_class::vol7d_dballe_importvsnv ( type(vol7d_dballe), intent(inout)  this,
character(len=*), 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,
type(vol7d_ana), intent(inout), optional  ana 
)
private

Identica a vol7d_dballe_importvsns con network vettore.

import da DB-all.e

Parametri
[in,out]thisoggetto vol7d_dballe

Definizione alla linea 649 del file vol7d_dballeold_class.F90.

649  lattr = .false.
650 ENDIF
651 
652 IF (PRESENT(anaattr)) THEN
653  if (size(anaattr) > 0) then
654  lanaattr = .true.
655  else
656  lanaattr = .false.
657  end if
658 ELSE
659  lanaattr = .false.
660 ENDIF
661 
662 IF (PRESENT(var)) THEN
663  allocate(lvar(size(var)))
664  lvar=var
665 ELSE
666  allocate(lvar(0))
667 ENDIF
668 
669 IF (PRESENT(anavar)) THEN
670  allocate(lanavar(size(anavar)))
671  lanavar=anavar
672 ELSE
673  allocate(lanavar(0))
674 ENDIF
675 
676 if (present(network)) then
677  lnetwork=network
678 else
679  call init(lnetwork)
680 end if
Costruttori per le classi datetime e timedelta.

Generated with Doxygen.