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 
)
private

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 346 del file vol7d_dballe_class.F03.

348 ldegnet = .true.
349 else
350 ldegnet = .false.
351 end if
352ELSE
353 ldegnet = .false.
354ENDIF
355
356if(ldegnet) then
357 query = "best"
358else
359 query=cmiss
360end 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
379if (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
407end if
408
409if (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
437end if
438

Generated with Doxygen.