dat_display dat_vect_display integeranavol move_datac move_datar realanavol to_char_dat v7d_rounding vol7d_alloc vol7d_alloc_vol vol7d_ana_a vol7d_ana_d vol7d_append vol7d_attr_a vol7d_attr_d vol7d_c_e vol7d_check vol7d_check_vol vol7d_convr vol7d_copy vol7d_delete vol7d_diff_only vol7d_display vol7d_filter vol7d_get_volanaattrb vol7d_get_volanaattrc vol7d_get_volanaattrd vol7d_get_volanaattri vol7d_get_volanaattrr vol7d_get_volanab vol7d_get_volanac vol7d_get_volanad vol7d_get_volanai vol7d_get_volanar vol7d_get_voldatiattrb vol7d_get_voldatiattrc vol7d_get_voldatiattrd vol7d_get_voldatiattri vol7d_get_voldatiattrr vol7d_get_voldatib vol7d_get_voldatic vol7d_get_voldatid vol7d_get_voldatii vol7d_get_voldatir vol7d_init vol7d_level_d vol7d_merge vol7d_network_a vol7d_network_d vol7d_read_from_file vol7d_reform vol7d_set_attr_ind vol7d_smart_sort vol7d_time_d vol7d_timerange_d vol7d_var_a vol7d_var_d vol7d_write_on_file

vol7d_reform() subroutine vol7d_reform ( type(vol7d), intent(inout) this, logical, intent(in), optional sort, logical, intent(in), optional unique, logical, intent(in), optional miss, logical, intent(in), optional lsort_time, logical, intent(in), optional lsort_timerange, logical, intent(in), optional lsort_level, logical, dimension(:), intent(in), optional ltime, logical, dimension(:), intent(in), optional ltimerange, logical, dimension(:), intent(in), optional llevel, logical, dimension(:), intent(in), optional lana, logical, dimension(:), intent(in), optional lnetwork, logical, dimension(:), intent(in), optional lanavarr, logical, dimension(:), intent(in), optional lanavard, logical, dimension(:), intent(in), optional lanavari, logical, dimension(:), intent(in), optional lanavarb, logical, dimension(:), intent(in), optional lanavarc, logical, dimension(:), intent(in), optional lanaattrr, logical, dimension(:), intent(in), optional lanaattrd, logical, dimension(:), intent(in), optional lanaattri, logical, dimension(:), intent(in), optional lanaattrb, logical, dimension(:), intent(in), optional lanaattrc, logical, dimension(:), intent(in), optional lanavarattrr, logical, dimension(:), intent(in), optional lanavarattrd, logical, dimension(:), intent(in), optional lanavarattri, logical, dimension(:), intent(in), optional lanavarattrb, logical, dimension(:), intent(in), optional lanavarattrc, logical, dimension(:), intent(in), optional ldativarr, logical, dimension(:), intent(in), optional ldativard, logical, dimension(:), intent(in), optional ldativari, logical, dimension(:), intent(in), optional ldativarb, logical, dimension(:), intent(in), optional ldativarc, logical, dimension(:), intent(in), optional ldatiattrr, logical, dimension(:), intent(in), optional ldatiattrd, logical, dimension(:), intent(in), optional ldatiattri, logical, dimension(:), intent(in), optional ldatiattrb, logical, dimension(:), intent(in), optional ldatiattrc, logical, dimension(:), intent(in), optional ldativarattrr, logical, dimension(:), intent(in), optional ldativarattrd, logical, dimension(:), intent(in), optional ldativarattri, logical, dimension(:), intent(in), optional ldativarattrb, logical, dimension(:), intent(in), optional ldativarattrc, logical, intent(in), optional purgeana ) Metodo per riformare in varie maniere un oggetto vol7d. Equivale ad una copia (vedi vol7d_copy) seguita dalla distruzione del volume iniziale e alla sua riassegnazione al volume copiato. Ha senso se almeno uno dei parametri sort, uniq o miss è fornito uguale a .TRUE., altrimenti è solo una perdita di tempo. Può essere utile, ad esempio, per eliminare stazioni o istanti temporali indesiderati, basta assegnare il loro corrispondente elemento del descrittore a valore mancante e chiamare vol7d_reform con miss=.TRUE. . Parametri [in,out] this oggetto da riformare [in] sort if present and .TRUE., sort all the sortable dimensions [in] unique se fornito e uguale a .TRUE., gli eventuali elementi duplicati nei descrittori dell'oggetto iniziale verranno collassati in un unico elemento (con eventuale perdita dei dati relativi agli elementi duplicati) [in] miss se fornito e uguale a .TRUE., gli eventuali elementi dei descrittori uguali al corrispondente valore mancante verranno eliminati dall'oggetto riformato [in] lsort_time if present and .TRUE., sort only time dimension (alternative to sort ) [in] lsort_timerange if present and .TRUE., sort only timerange dimension (alternative to sort ) [in] lsort_level if present and .TRUE., sort only level dimension (alternative to sort ) [in] ltime se fornito, deve essere un vettore logico della stessa lunghezza di thistime indicante quali elementi della dimensione time mantenere (valori .TRUE.) e quali scartare (valori .FALSE.) nel volume copiato; in alternativa può essere un vettore di lunghezza 1, in tal caso, se .FALSE. , equivale a scartare tutti gli elementi (utile principalmente per le variabili); è compatibile col parametro miss [in] ltimerange come il precedente per la dimensione timerange [in] llevel come il precedente per la dimensione level [in] lana come il precedente per la dimensione ana [in] lnetwork come il precedente per la dimensione network [in] lanavarr come il precedente per tutte le possibili dimensioni variabile [in] lanavard come il precedente per tutte le possibili dimensioni variabile [in] lanavari come il precedente per tutte le possibili dimensioni variabile [in] lanavarb come il precedente per tutte le possibili dimensioni variabile [in] lanavarc come il precedente per tutte le possibili dimensioni variabile [in] lanaattrr come il precedente per tutte le possibili dimensioni variabile [in] lanaattrd come il precedente per tutte le possibili dimensioni variabile [in] lanaattri come il precedente per tutte le possibili dimensioni variabile [in] lanaattrb come il precedente per tutte le possibili dimensioni variabile [in] lanaattrc come il precedente per tutte le possibili dimensioni variabile [in] lanavarattrr come il precedente per tutte le possibili dimensioni variabile [in] lanavarattrd come il precedente per tutte le possibili dimensioni variabile [in] lanavarattri come il precedente per tutte le possibili dimensioni variabile [in] lanavarattrb come il precedente per tutte le possibili dimensioni variabile [in] lanavarattrc come il precedente per tutte le possibili dimensioni variabile [in] ldativarr come il precedente per tutte le possibili dimensioni variabile [in] ldativard come il precedente per tutte le possibili dimensioni variabile [in] ldativari come il precedente per tutte le possibili dimensioni variabile [in] ldativarb come il precedente per tutte le possibili dimensioni variabile [in] ldativarc come il precedente per tutte le possibili dimensioni variabile [in] ldatiattrr come il precedente per tutte le possibili dimensioni variabile [in] ldatiattrd come il precedente per tutte le possibili dimensioni variabile [in] ldatiattri come il precedente per tutte le possibili dimensioni variabile [in] ldatiattrb come il precedente per tutte le possibili dimensioni variabile [in] ldatiattrc come il precedente per tutte le possibili dimensioni variabile [in] ldativarattrr come il precedente per tutte le possibili dimensioni variabile [in] ldativarattrd come il precedente per tutte le possibili dimensioni variabile [in] ldativarattri come il precedente per tutte le possibili dimensioni variabile [in] ldativarattrb come il precedente per tutte le possibili dimensioni variabile [in] ldativarattrc come il precedente per tutte le possibili dimensioni variabile [in] purgeana if true remove ana with all data missing Definizione alla linea 2016 del file vol7d_class.F90. IF (all(this%dativar%i(i)%btable /= vl)) this%dativar%i(i) = vol7d_var_miss ENDDO ENDIF IF (ASSOCIATED(this%dativar%b)) THEN DO i = 1, SIZE(this%dativar%b) IF (all(this%dativar%b(i)%btable /= vl)) this%dativar%b(i) = vol7d_var_miss ENDDO ENDIF IF (ASSOCIATED(this%dativar%d)) THEN DO i = 1, SIZE(this%dativar%d) IF (all(this%dativar%d(i)%btable /= vl)) this%dativar%d(i) = vol7d_var_miss ENDDO ENDIF IF (ASSOCIATED(this%dativar%c)) THEN DO i = 1, SIZE(this%dativar%c) IF (all(this%dativar%c(i)%btable /= vl)) this%dativar%c(i) = vol7d_var_miss ENDDO ENDIF IF (ASSOCIATED(this%dativar%c)) THEN DO i = 1, SIZE(this%dativar%c) IF (all(this%dativar%c(i)%btable /= vl)) this%dativar%c(i) = vol7d_var_miss ENDDO ENDIF ENDIF ENDIF IF (PRESENT(nl)) THEN IF (SIZE(nl) > 0) THEN DO i = 1, SIZE(this%network) IF (all(this%network(i) /= nl)) this%network(i) = vol7d_network_miss ENDDO ENDIF ENDIF IF (PRESENT(s_d)) THEN IF (c_e(s_d)) THEN WHERE (this%time < s_d) this%time = datetime_miss END WHERE ENDIF ENDIF IF (PRESENT(e_d)) THEN IF (c_e(e_d)) THEN WHERE (this%time > e_d) this%time = datetime_miss END WHERE ENDIF ENDIF CALL vol7d_reform(this, miss=.TRUE.) END SUBROUTINE vol7d_filter !> Metodo per convertire i volumi di dati di un oggetto vol7d in dati !! reali dove possibile. L'oggetto convertito è una copia completa !! dell'originale che può essere quindi distrutto dopo la chiamata.