libsim  Versione 7.2.1

◆ vol7d_dballe_init()

subroutine vol7d_dballe_init ( type(vol7d_dballe), intent(out)  this,
character(len=*), intent(in), optional  dsn,
character(len=*), intent(in), optional  user,
character(len=*), intent(in), optional  password,
logical, intent(in), optional  write,
logical, intent(in), optional  wipe,
character(len=*), intent(in), optional  repinfo,
character(len=*), intent(inout), optional  filename,
character(len=*), intent(in), optional  format,
logical, intent(in), optional  file,
character(len=*), intent(in), optional  categoryappend,
integer, intent(in), optional  time_definition,
integer, intent(in), optional  idbhandle,
character(len=*), intent(in), optional  template 
)

inizializza l'oggetto

Parametri
[out]thisl'oggetto da inizializzare
[in]dsnper l'accesso al DSN ( default="test" )
[in]userper l'accesso al DSN ( default="test" )
[in]passwordper l'accesso al DSN ( default="" )
[in]writeabilita la scrittura sul DSN/file ( default=.false. )
[in]wipesvuota il DSN/file e/o lo prepara per una scrittura ( default=.false. )
[in]repinfoeventuale file repinfo.csv usato con wipe ( default="" )
[in,out]filenamenome dell'eventuale file da utilizzare in alternativa a dsn when file is true; se passato ="" ritorna un valore di deafult elaborato
[in]formatthe file format when file is true. It can be "BUFR", "CREX" or "JSON" (default="BUFR")
[in]fileswitch to use file or data base ( default=.false )
[in]categoryappendappennde questo suffisso al namespace category di log4fortran
[in]time_definition0=time is reference time ; 1=time is validity time (default=1)
[in]idbhandledsn connection; if present it will be used
[in]templatespecificando category.subcategory.localcategory oppure un alias ("synop", "metar","temp","generic") forza l'exportazione ad uno specifico template BUFR/CREX" the special value "generic-frag is used to generate bufr on file where ana data is reported only once at beginning and data in other bufr after
[in]templatedefault template to use exporting to file; can be overwritten by export

Definizione alla linea 356 del file vol7d_dballe_class.F03.

358 else
359  query=cmiss
360 end if
361 
362 
363  ! uncommenti this if you want compatibility API with old import
364 
365 !!$ if (allocated(starvars%dcv)) then
366 !!$ ldataonly=.false.
367 !!$ else
368 !!$ ldataonly=.true.
369 !!$ end if
370 
371 
372 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
373  ! ------------- prepare filter options
374 
375 !!
376 !! translate import option for dballe2003 api
377 !!
378 
379 if (present(var)) then
380  nvar=count(c_e(var))
381  if (nvar > 0) then
382  allocate (vars%dcv(nvar))
383  do i=1,size(var)
384  if (c_e(var(i)))then
385  if (present(varkind))then
386  select case (varkind(i))
387  case("r")
388  allocate (vars%dcv(i)%dat,source=dbadatar(var(i)))
389  case("i")
390  allocate (vars%dcv(i)%dat,source=dbadatai(var(i)))
391  case("b")
392  allocate (vars%dcv(i)%dat,source=dbadatab(var(i)))
393  case("d")
394  allocate (vars%dcv(i)%dat,source=dbadatad(var(i)))
395  case("c")
396  allocate (vars%dcv(i)%dat,source=dbadatac(var(i)))
397  case default
398  call l4f_category_log(this%category,l4f_error,"var and varkind mismach")
399  CALL raise_fatal_error()
400  end select
401  else
402  allocate (vars%dcv(i)%dat,source=dbadatac(var(i))) !char is default
403  end if
404  end if
405  end do
406  end if
407 end if
408 
409 if (present(anavar)) then
410  nanavar=count(c_e(anavar))
411  if (nanavar > 0) then
412  allocate (anavars%dcv(nanavar))
413  do i=1,size(anavar)
414  if (c_e(anavar(i)))then
415  if (present(anavarkind))then
416  select case (anavarkind(i))
417  case("r")
418  allocate (anavars%dcv(i)%dat,source=dbadatar(anavar(i)))
419  case("i")
420  allocate (anavars%dcv(i)%dat,source=dbadatai(anavar(i)))
421  case("b")
422  allocate (anavars%dcv(i)%dat,source=dbadatab(anavar(i)))
423  case("d")
424  allocate (anavars%dcv(i)%dat,source=dbadatad(anavar(i)))
425  case("c")
426  allocate (anavars%dcv(i)%dat,source=dbadatac(anavar(i)))
427  case default
428  call l4f_category_log(this%category,l4f_error,"anavar and anavarkind mismach")
429  CALL raise_fatal_error()
430  end select
431  else
432  allocate (anavars%dcv(i)%dat,source=dbadatac(anavar(i))) !char is default
433  end if
434  end if
435  end do
436  end if
437 end if
438 
439 if (present(attr)) then
440  nattr=size(attr)
441  if (nattr == 0) then
442  allocate (starvars%dcv(nattr))
443  else
444  nattr=count(c_e(attr))
445  if (nattr > 0) then
446  allocate (starvars%dcv(nattr))
447  do i=1,size(attr)
448  if (c_e(attr(i)))then

Generated with Doxygen.