libsim  Versione6.3.0

◆ 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
[in,out]thisoggetto vol7d_dballe

Definizione alla linea 723 del file vol7d_dballeold_class.F90.

723 if (present(coordmax)) then
724 ! CALL geo_coord_to_geo(coordmax)
725  CALL getval(coordmax, ilat=ilat,ilon=ilon)
726 #ifdef DEBUG
727  CALL l4f_category_log(this%category,l4f_debug,'query coordmax:'//t2c(ilon,miss="missing")//"/"//t2c(ilat,miss="missing"))
728 #endif
729  ier=idba_set(this%handle,"lonmax",ilon)
730  ier=idba_set(this%handle,"latmax",ilat)
731 end if
732 
733 if (present(ana)) then
734  CALL getval(ana%coord, ilat=ilat,ilon=ilon)
735 #ifdef DEBUG
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"))
738 #endif
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)
743  ! mobile ignored
744  ier=idba_set(this%handle,"mobile",1)
745  else
746  ier=idba_set(this%handle,"mobile",0)
747  end if
748 end if
749 
750 if (present(timei)) then
751  if (c_e(timei)) then
Functions that return a trimmed CHARACTER representation of the input variable.
Restituiscono il valore dell'oggetto nella forma desiderata.

Generated with Doxygen.