libsim  Versione6.3.0

◆ vol7d_dballe_init()

subroutine vol7d_dballeold_class::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 
)
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 del file su cui scrivere; se passato ="" ritorna il valore rielaborato
[in]formatthe file format. It can be "BUFR" or "CREX". (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

Definizione alla linea 399 del file vol7d_dballeold_class.F90.

399 !! - "d" = double precision
400 !! - "c" = character
401 CHARACTER(len=*),INTENT(in),OPTIONAL :: varkind(:)
408 CHARACTER(len=*),INTENT(in),OPTIONAL :: attrkind(:)
415 CHARACTER(len=*),INTENT(in),OPTIONAL :: anavarkind(:)
422 CHARACTER(len=*),INTENT(in),OPTIONAL :: anaattrkind(:)
423 logical,intent(in),optional :: anaonly
424 
425 CALL import(this, (/var/), network, coordmin, coordmax, timei, timef,level,timerange, set_network,&
426  attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana)
427 
428 END SUBROUTINE vol7d_dballe_importvsns
429 
433 
434 SUBROUTINE vol7d_dballe_importvsnv(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,&
435  attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana)
436 TYPE(vol7d_dballe),INTENT(inout) :: this
437 CHARACTER(len=*),INTENT(in) :: var
438 TYPE(geo_coord),INTENT(inout),optional :: coordmin,coordmax
439 TYPE(vol7d_ana),INTENT(inout),optional :: ana
440 TYPE(datetime),INTENT(in),optional :: timei, timef
441 TYPE(vol7d_network),INTENT(in) :: network(:)
442 TYPE(vol7d_network),INTENT(in),OPTIONAL :: set_network
443 TYPE(vol7d_level),INTENT(in),optional :: level
444 TYPE(vol7d_timerange),INTENT(in),optional :: timerange
445 CHARACTER(len=*),INTENT(in),OPTIONAL :: attr(:),anavar(:),anaattr(:)
446 CHARACTER(len=*),INTENT(in),OPTIONAL :: varkind(:),attrkind(:),anavarkind(:),anaattrkind(:)
447 logical,intent(in),optional :: anaonly
448 
449 
450 INTEGER :: i
451 
452 if (size(network) == 0) then
453 
454  CALL import(this, (/var/), coordmin=coordmin, coordmax=coordmax, timei=timei, timef=timef, level=level,&
455  timerange=timerange,set_network=set_network, attr=attr,anavar=anavar,anaattr=anaattr,&
456  varkind=varkind,attrkind=attrkind,anavarkind=anavarkind,anaattrkind=anaattrkind,anaonly=anaonly,ana=ana)
457 
458 else
459 
460  DO i = 1, SIZE(network)
461  CALL import(this, (/var/), network(i), coordmin, coordmax, timei, timef, level,timerange,set_network,&
462  attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana)
463  ENDDO
464 end if
465 
466 
467 
468 END SUBROUTINE vol7d_dballe_importvsnv
469 
473 
474 SUBROUTINE vol7d_dballe_importvvnv(this, var, network, coordmin,coordmax, timei, timef, level,timerange,set_network,&
475  attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana)
476 TYPE(vol7d_dballe),INTENT(inout) :: this
477 CHARACTER(len=*),INTENT(in) :: var(:)
478 TYPE(geo_coord),INTENT(inout),optional :: coordmin,coordmax
479 TYPE(vol7d_ana),INTENT(inout),optional :: ana
480 TYPE(datetime),INTENT(in),optional :: timei, timef
481 TYPE(vol7d_network),INTENT(in) :: network(:)
482 TYPE(vol7d_network),INTENT(in),OPTIONAL :: set_network
483 TYPE(vol7d_level),INTENT(in),optional :: level
484 TYPE(vol7d_timerange),INTENT(in),optional :: timerange
485 CHARACTER(len=*),INTENT(in),OPTIONAL :: attr(:),anavar(:),anaattr(:)
486 CHARACTER(len=*),INTENT(in),OPTIONAL :: varkind(:),attrkind(:),anavarkind(:),anaattrkind(:)
487 logical,intent(in),optional :: anaonly
488 
489 INTEGER :: i
490 
491 if (size(network) == 0 )then
492  CALL import(this,var, coordmin=coordmin, coordmax=coordmax, timei=timei, timef=timef, level=level,&
493  timerange=timerange,set_network=set_network, attr=attr,anavar=anavar,anaattr=anaattr,&
494  varkind=varkind,attrkind=attrkind,anavarkind=anavarkind,anaattrkind=anaattrkind,anaonly=anaonly,ana=ana)
495 else
496  DO i = 1, SIZE(network)
497  CALL import(this, var, network(i), coordmin, coordmax, timei, timef, level,timerange,set_network,&
498  attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana)
499  ENDDO
500 end if
501 
502 END SUBROUTINE vol7d_dballe_importvvnv
503 
507 
508 SUBROUTINE vol7d_dballe_importvvns(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,&
509  attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana)
510 
511 TYPE(vol7d_dballe),INTENT(inout) :: this
512 CHARACTER(len=*),INTENT(in),optional :: var(:)
513 TYPE(geo_coord),INTENT(inout),optional :: coordmin,coordmax
514 TYPE(vol7d_ana),INTENT(inout),optional :: ana
515 TYPE(datetime),INTENT(in),OPTIONAL :: timei, timef
516 TYPE(vol7d_network),INTENT(in),OPTIONAL :: network,set_network
517 TYPE(vol7d_level),INTENT(in),optional :: level
518 TYPE(vol7d_timerange),INTENT(in),optional :: timerange
519 CHARACTER(len=*),INTENT(in),OPTIONAL :: attr(:),anavar(:),anaattr(:)
520 CHARACTER(len=*),INTENT(in),OPTIONAL :: varkind(:),attrkind(:),anavarkind(:),anaattrkind(:)
521 logical,intent(in),optional :: anaonly
522 
523 if (this%file) then
524 
525  call vol7d_dballe_importvvns_file(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,&
526  attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana)
527 
528 else
529 !!$ if (optio_log(anaonly)) then
530 !!$ CALL l4f_category_log(this%category,L4F_ERROR,"anaonly=.true. not supported accessing to dba")
531 !!$ CALL raise_fatal_error()
532 !!$ end if
533 
534  call vol7d_dballe_importvvns_dba(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,&
535  attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana)
536 
537 end if
538 
539 end SUBROUTINE vol7d_dballe_importvvns
540 
541 
542 
546 SUBROUTINE vol7d_dballe_importvvns_dba(this, var, network, coordmin, coordmax, timei, timef,level,timerange, set_network,&
547  attr,anavar,anaattr, varkind,attrkind,anavarkind,anaattrkind,anaonly,ana)
548 
549 TYPE(vol7d_dballe),INTENT(inout) :: this
550 CHARACTER(len=*),INTENT(in),OPTIONAL :: var(:)
551 TYPE(geo_coord),INTENT(inout),optional :: coordmin,coordmax
552 TYPE(vol7d_ana),INTENT(inout),optional :: ana
553 TYPE(datetime),INTENT(in),OPTIONAL :: timei, timef
554 TYPE(vol7d_network),INTENT(in),OPTIONAL :: network,set_network
555 TYPE(vol7d_level),INTENT(in),optional :: level
556 TYPE(vol7d_timerange),INTENT(in),optional :: timerange
557 CHARACTER(len=*),INTENT(in),OPTIONAL :: attr(:),anavar(:),anaattr(:)
558 CHARACTER(len=*),INTENT(in),OPTIONAL :: varkind(:),attrkind(:),anavarkind(:),anaattrkind(:)
559 logical,intent(in),optional :: anaonly
560 
561 TYPE(vol7d_network) :: lnetwork
562 TYPE(vol7d_level) :: llevel
563 TYPE(vol7d_timerange) :: ltimerange
564 
565 INTEGER,PARAMETER :: maxvarlist=100
566 !TYPE(vol7d) :: v7d
567 ! da non fare (con gfortran?)!!!!!
568 !CHARACTER(len=SIZE(var)*7) :: varlist
569 !CHARACTER(len=SIZE(attr)*8) :: starvarlist
570 CHARACTER(len=maxvarlist*7) :: varlist
571 CHARACTER(len=maxvarlist*8) :: starvarlist
572 CHARACTER(len=6) :: btable
573 CHARACTER(len=7) ::starbtable
574 
575 LOGICAL :: ldegnet, lattr, lanaattr

Generated with Doxygen.