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_alloc_vol() subroutine vol7d_alloc_vol ( type(vol7d), intent(inout) this, logical, intent(in), optional ini, logical, intent(in), optional inivol ) Metodo per allocare i volumi richiesti di variabili e attributi per anagrafica e dati. Se alcuni dei descrittori relativi alle dimensioni anagrafica, livello verticale, tempo, intervallo temporale (timerange), rete non sono stati richiesti preventivamente con la vol7d_alloc, essi vengono allocati automaticamente da questo metodo con estensione di default pari a 1 (non 0!), questo significa, ad esempio, che se prevedo di avere soli dati superficiali, cioè ad un solo livello verticale, o una sola rete di stazioni, non devo preoccuparmi di specificare questa informazione. Tra i 20 possibili volumi allocabili ((variabili,attributi)*(anagrafica,dati)*(r,d,i,b,c)=20) saranno allocati solo quelli per cui è stato precedentemente richiesto il corrispondente descrittore variabili/attributi con la vol7d_alloc. Parametri [in,out] this oggetto di cui allocare i volumi [in] ini se fornito e vale .TRUE., viene chiamato il costruttore, senza parametri opzionali, per ogni elemento di tutti i descrittori allocati [in] inivol se fornito e vale .TRUE., i volumi allocati saranno inizializzati a valore mancante Definizione alla linea 1318 del file vol7d_class.F90. END SUBROUTINE vol7d_alloc_vol !> Metodo per creare gli indici che associano le variabili aventi attributo !! alle variabili nei relativi descrittori. !! Ha senso chiamare questo metodo solo dopo che i descrittori delle variabili !! e degli attributi desiderati sono stati allocati ed è stato assegnato un !! valore ai relativi membri btable (vedi vol7d_var_class::vol7d_var), se !! i descrittori non sono stati allocati o assegnati, il metodo non fa niente. SUBROUTINE vol7d_set_attr_ind(this) TYPE(vol7d),INTENT(inout) :: this !< oggetto in cui creare gli indici INTEGER :: i ! real IF (ASSOCIATED(this%dativar%r)) THEN IF (ASSOCIATED(this%dativarattr%r)) THEN DO i = 1, SIZE(this%dativar%r) this%dativar%r(i)%r = & firsttrue(this%dativar%r(i)%btable == this%dativarattr%r(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%d)) THEN DO i = 1, SIZE(this%dativar%r) this%dativar%r(i)%d = & firsttrue(this%dativar%r(i)%btable == this%dativarattr%d(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%i)) THEN DO i = 1, SIZE(this%dativar%r) this%dativar%r(i)%i = & firsttrue(this%dativar%r(i)%btable == this%dativarattr%i(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%b)) THEN DO i = 1, SIZE(this%dativar%r) this%dativar%r(i)%b = & firsttrue(this%dativar%r(i)%btable == this%dativarattr%b(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%c)) THEN DO i = 1, SIZE(this%dativar%r) this%dativar%r(i)%c = & firsttrue(this%dativar%r(i)%btable == this%dativarattr%c(:)%btable) ENDDO ENDIF ENDIF ! double IF (ASSOCIATED(this%dativar%d)) THEN IF (ASSOCIATED(this%dativarattr%r)) THEN DO i = 1, SIZE(this%dativar%d) this%dativar%d(i)%r = & firsttrue(this%dativar%d(i)%btable == this%dativarattr%r(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%d)) THEN DO i = 1, SIZE(this%dativar%d) this%dativar%d(i)%d = & firsttrue(this%dativar%d(i)%btable == this%dativarattr%d(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%i)) THEN DO i = 1, SIZE(this%dativar%d) this%dativar%d(i)%i = & firsttrue(this%dativar%d(i)%btable == this%dativarattr%i(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%b)) THEN DO i = 1, SIZE(this%dativar%d) this%dativar%d(i)%b = & firsttrue(this%dativar%d(i)%btable == this%dativarattr%b(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%c)) THEN DO i = 1, SIZE(this%dativar%d) this%dativar%d(i)%c = & firsttrue(this%dativar%d(i)%btable == this%dativarattr%c(:)%btable) ENDDO ENDIF ENDIF ! integer IF (ASSOCIATED(this%dativar%i)) THEN IF (ASSOCIATED(this%dativarattr%r)) THEN DO i = 1, SIZE(this%dativar%i) this%dativar%i(i)%r = & firsttrue(this%dativar%i(i)%btable == this%dativarattr%r(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%d)) THEN DO i = 1, SIZE(this%dativar%i) this%dativar%i(i)%d = & firsttrue(this%dativar%i(i)%btable == this%dativarattr%d(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%i)) THEN DO i = 1, SIZE(this%dativar%i) this%dativar%i(i)%i = & firsttrue(this%dativar%i(i)%btable == this%dativarattr%i(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%b)) THEN DO i = 1, SIZE(this%dativar%i) this%dativar%i(i)%b = & firsttrue(this%dativar%i(i)%btable == this%dativarattr%b(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%c)) THEN DO i = 1, SIZE(this%dativar%i) this%dativar%i(i)%c = & firsttrue(this%dativar%i(i)%btable == this%dativarattr%c(:)%btable) ENDDO ENDIF ENDIF ! byte IF (ASSOCIATED(this%dativar%b)) THEN IF (ASSOCIATED(this%dativarattr%r)) THEN DO i = 1, SIZE(this%dativar%b) this%dativar%b(i)%r = & firsttrue(this%dativar%b(i)%btable == this%dativarattr%r(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%d)) THEN DO i = 1, SIZE(this%dativar%b) this%dativar%b(i)%d = & firsttrue(this%dativar%b(i)%btable == this%dativarattr%d(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%i)) THEN DO i = 1, SIZE(this%dativar%b) this%dativar%b(i)%i = & firsttrue(this%dativar%b(i)%btable == this%dativarattr%i(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%b)) THEN DO i = 1, SIZE(this%dativar%b) this%dativar%b(i)%b = & firsttrue(this%dativar%b(i)%btable == this%dativarattr%b(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%c)) THEN DO i = 1, SIZE(this%dativar%b) this%dativar%b(i)%c = & firsttrue(this%dativar%b(i)%btable == this%dativarattr%c(:)%btable) ENDDO ENDIF ENDIF ! character IF (ASSOCIATED(this%dativar%c)) THEN IF (ASSOCIATED(this%dativarattr%r)) THEN DO i = 1, SIZE(this%dativar%c) this%dativar%c(i)%r = & firsttrue(this%dativar%c(i)%btable == this%dativarattr%r(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%d)) THEN DO i = 1, SIZE(this%dativar%c) this%dativar%c(i)%d = & firsttrue(this%dativar%c(i)%btable == this%dativarattr%d(:)%btable) ENDDO ENDIF IF (ASSOCIATED(this%dativarattr%i)) THEN