|
◆ vol7d_dballe_importvvns()
subroutine vol7d_dballeold_class::vol7d_dballe_importvvns |
( |
type(vol7d_dballe), intent(inout) |
this, |
|
|
character(len=*), dimension(:), intent(in), optional |
var, |
|
|
type(vol7d_network), intent(in), optional |
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 var vettore.
import da DB-all.e oppure da BUFR/CREX formato generico
- Parametri
-
Definizione alla linea 723 del file vol7d_dballeold_class.F90.
723 if ( present(coordmax)) then 725 CALL getval(coordmax, ilat=ilat,ilon=ilon) 727 CALL l4f_category_log(this%category,l4f_debug, 'query coordmax:'// t2c(ilon,miss= "missing")// "/"// t2c(ilat,miss= "missing")) 729 ier=idba_set(this%handle, "lonmax",ilon) 730 ier=idba_set(this%handle, "latmax",ilat) 733 if ( present(ana)) then 734 CALL getval(ana%coord, ilat=ilat,ilon=ilon) 736 CALL l4f_category_log(this%category,l4f_debug, 'query coord:'// t2c(ilon,miss= "missing")// "/"// t2c(ilat,miss= "missing")) 737 CALL l4f_category_log(this%category,l4f_debug, 'query ident:'// t2c(ana%ident,miss= "missing")) 739 ier=idba_set(this%handle, "lon",ilon) 740 ier=idba_set(this%handle, "lat",ilat) 741 if ( c_e(ana%ident)) then 742 ier=idba_set(this%handle, "ident",ana%ident) 744 ier=idba_set(this%handle, "mobile",1) 746 ier=idba_set(this%handle, "mobile",0) 750 if ( present(timei)) then Functions that return a trimmed CHARACTER representation of the input variable.
Restituiscono il valore dell'oggetto nella forma desiderata.
|