|
◆ 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
-
Definizione alla linea 453 del file vol7d_dballe_class.F03.
456 allocate (starvars%dcv(i)%dat,source=dbadatab(attr(i)))
458 allocate (starvars%dcv(i)%dat,source=dbadatad(attr(i)))
460 allocate (starvars%dcv(i)%dat,source=dbadatac(attr(i)))
462 call l4f_category_log(this%category,l4f_error, "attr and attrkind mismach")
463 CALL raise_fatal_error()
466 allocate (starvars%dcv(i)%dat,source=dbadatac(attr(i)))
474 if ( present(anaattr)) then
475 nanaattr= size(anaattr)
476 if (nanaattr == 0) then
477 allocate (anastarvars%dcv(nanaattr))
479 nanaattr=count(c_e(anaattr))
480 if (nanaattr > 0) then
481 allocate (anastarvars%dcv(nanaattr))
483 if (c_e(anaattr(i))) then
484 if ( present(anaattrkind)) then
485 select case (anaattrkind(i))
487 allocate (anastarvars%dcv(i)%dat,source=dbadatar(anaattr(i)))
|