|
◆ 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 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)) 473 nanaattr=count( c_e(anaattr)) 474 if (nanaattr > 0) then 475 allocate (anastarvars%dcv(nanaattr)) 477 if ( c_e(anaattr(i))) then 478 if ( present(anaattrkind)) then 479 select case (anaattrkind(i)) 481 allocate (anastarvars%dcv(i)%dat,source=dbadatar(anaattr(i))) 483 allocate (anastarvars%dcv(i)%dat,source=dbadatai(anaattr(i))) 485 allocate (anastarvars%dcv(i)%dat,source=dbadatab(anaattr(i))) 487 allocate (anastarvars%dcv(i)%dat,source=dbadatad(anaattr(i))) 489 allocate (anastarvars%dcv(i)%dat,source=dbadatac(anaattr(i))) 491 call l4f_category_log(this%category,l4f_error, "attr and attrkind mismach") 492 CALL raise_fatal_error() 495 allocate (anastarvars%dcv(i)%dat,source=dbadatac(anaattr(i)))
|