dba2v7d vol7d_dballe_delete vol7d_dballe_export vol7d_dballe_export_old vol7d_dballe_import vol7d_dballe_import_old vol7d_dballe_importvvnv vol7d_dballe_init vol7d_dballe_set_var_du

vol7d_dballe_set_var_du() subroutine, public vol7d_dballe_class::vol7d_dballe_set_var_du ( type(vol7d)  this ) Integra il vettore delle variabili in vol7d con le descrizioni e le unità di misura eventualmente mancanti. Parametri this oggetto vol7d con le variabili da completare Definizione alla linea 1742 del file vol7d_dballe_class.F03. unit = getunit() IF (unit == -1) RETURN OPEN(unit, file=path, status='old', iostat = i) IF (i == 0) THEN CALL l4f_log(l4f_info, 'dballe file '//trim(path)//' opened') RETURN ENDIF CALL l4f_log(l4f_error, 'dballe file '//trim(filename)//' not found') CALL raise_error() unit = -1 END FUNCTION open_dballe_file !!! TODO manage attr_only !!! attention template migrated in init !SUBROUTINE vol7d_dballe_export(this, network, coordmin, coordmax,& ! timei, timef,level,timerange,var,attr,anavar,anaattr,attr_only,ana,dataonly) SUBROUTINE vol7d_dballe_export_old(this, network, coordmin, coordmax,& timei, timef,level,timerange,var,attr,anavar,anaattr,ana,dataonly,anaonly,template,attr_only) TYPE(vol7d_dballe),INTENT(inout) :: this character(len=network_name_len),INTENT(in),optional :: network TYPE(geo_coord),INTENT(in),optional :: coordmin,coordmax TYPE(datetime),INTENT(in),optional :: timei, timef TYPE(vol7d_level),INTENT(in),optional :: level TYPE(vol7d_timerange),INTENT(in),optional :: timerange CHARACTER(len=*),INTENT(in),OPTIONAL :: var(:),attr(:),anavar(:),anaattr(:) !!$!> permette di riscrivere su un DSN letto precedentemente, modificando solo gli attributi ai dati, !!$!! ottimizzando enormente le prestazioni: gli attributi riscritti saranno quelli con this%data_id definito !!$!! (solitamente ricopiato dall'oggetto letto) !!$logical,intent(in),optional :: attr_only TYPE(vol7d_ana),INTENT(inout),optional :: ana logical, intent(in),optional :: dataonly logical, intent(in),optional :: anaonly character(len=*),intent(in),optional :: template logical, intent(in),optional :: attr_only type(dbadcv) :: vars,starvars,anavars,anastarvars type(dbafilter) :: filter type(dbacoord) :: mydbacoordmin, mydbacoordmax type(dbaana) :: mydbaana type(dbadatetime) :: mydatetimemin, mydatetimemax type(dbatimerange) :: mydbatimerange type(dbalevel) :: mydbalevel type(dbanetwork) :: mydbanetwork integer :: i LOGICAL :: lattr, lanaattr integer :: nanaattr,nattr,nanavar,nvar ! ------------- prepare filter options !! !! translate export option for dballe2003 api !! if (present(var)) then nvar=count(c_e(var)) if (nvar > 0) then allocate (vars%dcv(nvar)) do i=1,size(var) if (c_e(var(i)))then allocate (vars%dcv(i)%dat,source=dbadatac(var(i))) !char is default end if end do end if end if if (present(anavar)) then nanavar=count(c_e(anavar)) if (nanavar > 0) then allocate (anavars%dcv(nanavar)) do i=1,size(anavar) if (c_e(anavar(i)))then allocate (anavars%dcv(i)%dat,source=dbadatac(anavar(i))) !char is default end if end do end if end if lattr = .false. if (present(attr)) then nattr=count(c_e(attr)) if (nattr > 0) then lattr = .true. allocate (starvars%dcv(nattr)) do i=1,size(attr) if (c_e(attr(i)))then allocate (starvars%dcv(i)%dat,source=dbadatac(attr(i))) !char is default end if end do end if end if lanaattr = .false. if (present(anaattr)) then nanaattr=count(c_e(anaattr)) if (nanaattr > 0) then lanaattr = .true. allocate (anastarvars%dcv(nanaattr)) do i=1,size(anaattr) if (c_e(anaattr(i)))then allocate (anastarvars%dcv(i)%dat,source=dbadatac(anaattr(i))) !char is default end if end do end if end if ! like a cast mydbacoordmin=dbacoord() if (present(coordmin)) mydbacoordmin%geo_coord=coordmin mydbacoordmax=dbacoord() if (present(coordmax)) mydbacoordmax%geo_coord=coordmax mydbaana=dbaana() if (present(ana)) mydbaana%vol7d_ana=ana mydatetimemin=dbadatetime() if (present(timei)) mydatetimemin%datetime=timei mydatetimemax=dbadatetime() if (present(timef)) mydatetimemax%datetime=timef mydbatimerange=dbatimerange() if (present(timerange)) mydbatimerange%vol7d_timerange=timerange mydbalevel=dbalevel() if (present(level)) mydbalevel%vol7d_level=level mydbanetwork=dbanetwork() if (present(network)) call init(mydbanetwork%vol7d_network,name=network) !! !! here we have options ready for filter !! filter=dbafilter(coordmin=mydbacoordmin,coordmax=mydbacoordmax,ana=mydbaana, & datetimemin=mydatetimemin,datetimemax=mydatetimemax, & timerange=mydbatimerange,level=mydbalevel,network=mydbanetwork,& vars=vars,starvars=starvars,anavars=anavars,anastarvars=anastarvars,& dataonly=dataonly,anaonly=anaonly) !!$ print *, "filter:" !!$ call filter%display() call export (this, filter,template,attr_only) end SUBROUTINE vol7d_dballe_export_old subroutine vol7d_dballe_export (this, filter, template, attr_only) TYPE(vol7d_dballe),INTENT(inout) :: this type(dbafilter),intent(in) :: filter character(len=*),intent(in),optional :: template logical, intent(in),optional :: attr_only character(len=40) :: ltemplate type(dbametaanddatalist) :: metaanddatal logical :: stat metaanddatal=dbametaanddatalist() call v7d2dba(this%vol7d,metaanddatal) !call metaanddatal%display() !clean memdb if (this%file) call this%handle%remove_all() ! using filter here can limit memory use for memdb call metaanddatal%extrude(session=this%handle,filter=filter,attronly=attr_only,template=template) if (this%file) then !!!!! this if we have written in memdb and now we have to write the file !filter is already in extrude !this%handle%set(filter=filter) ! export to file !! TODO : revert template from init to export !!!!!!!!!!!!!!!!!!!!! !!call this%handle%messages_write_next(template) ! note that you can use unsetall hera because the filter was used in extrude call filter%dbaset(this%handle) ltemplate=this%handle%template if (present(template))then ltemplate=template end if call this%handle%messages_write_next(ltemplate) !clean memdb call this%handle%remove_all() end if stat = metaanddatal%delete() end subroutine vol7d_dballe_export subroutine v7d2dba(v7d,metaanddatal) TYPE(vol7d),INTENT(in) :: v7d !!!!!! dovrebbe essere intent(in) type(dbametaanddatalist),intent(inout) :: metaanddatal TYPE(vol7d_serialize_dballe) :: serialize serialize = vol7d_serialize_dballe_new() serialize%anaonly=.true. call serialize%vol7d_serialize_setup(v7d) call serialize%vol7d_serialize_export(metaanddatal) serialize = vol7d_serialize_dballe_new() serialize%dataonly=.true. call serialize%vol7d_serialize_setup(v7d) call serialize%vol7d_serialize_export(metaanddatal) end subroutine v7d2dba end MODULE vol7d_dballe_class