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_check_vol() logical function vol7d_class::vol7d_check_vol ( type(vol7d), intent(in)  this ) Parametri [in] this oggetto da controllare Definizione alla linea 1202 del file vol7d_class.F90. CALL vol7d_force_alloc_ana(this, ini) ALLOCATE(this%volanaattri(SIZE(this%ana), SIZE(this%anavarattr%i), & SIZE(this%network), SIZE(this%anaattr%i))) IF (linivol) this%volanaattri(:,:,:,:) = imiss ENDIF IF (ASSOCIATED(this%anaattr%b) .AND. ASSOCIATED(this%anavarattr%b) .AND. & .NOT.ASSOCIATED(this%volanaattrb)) THEN CALL vol7d_force_alloc_ana(this, ini) ALLOCATE(this%volanaattrb(SIZE(this%ana), SIZE(this%anavarattr%b), & SIZE(this%network), SIZE(this%anaattr%b))) IF (linivol) this%volanaattrb(:,:,:,:) = ibmiss ENDIF IF (ASSOCIATED(this%anaattr%c) .AND. ASSOCIATED(this%anavarattr%c) .AND. & .NOT.ASSOCIATED(this%volanaattrc)) THEN CALL vol7d_force_alloc_ana(this, ini) ALLOCATE(this%volanaattrc(SIZE(this%ana), SIZE(this%anavarattr%c), & SIZE(this%network), SIZE(this%anaattr%c))) IF (linivol) this%volanaattrc(:,:,:,:) = cmiss ENDIF ! Dati IF (ASSOCIATED(this%dativar%r) .AND. .NOT.ASSOCIATED(this%voldatir)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatir(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativar%r), SIZE(this%network))) IF (linivol) this%voldatir(:,:,:,:,:,:) = rmiss ENDIF IF (ASSOCIATED(this%dativar%d) .AND. .NOT.ASSOCIATED(this%voldatid)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatid(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativar%d), SIZE(this%network))) IF (linivol) this%voldatid(:,:,:,:,:,:) = rdmiss ENDIF IF (ASSOCIATED(this%dativar%i) .AND. .NOT.ASSOCIATED(this%voldatii)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatii(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativar%i), SIZE(this%network))) IF (linivol) this%voldatii(:,:,:,:,:,:) = imiss ENDIF IF (ASSOCIATED(this%dativar%b) .AND. .NOT.ASSOCIATED(this%voldatib)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatib(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativar%b), SIZE(this%network))) IF (linivol) this%voldatib(:,:,:,:,:,:) = ibmiss ENDIF IF (ASSOCIATED(this%dativar%c) .AND. .NOT.ASSOCIATED(this%voldatic)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatic(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativar%c), SIZE(this%network))) IF (linivol) this%voldatic(:,:,:,:,:,:) = cmiss ENDIF ! Attributi dei dati IF (ASSOCIATED(this%datiattr%r) .AND. ASSOCIATED(this%dativarattr%r) .AND. & .NOT.ASSOCIATED(this%voldatiattrr)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatiattrr(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativarattr%r), SIZE(this%network), & SIZE(this%datiattr%r))) IF (linivol) this%voldatiattrr(:,:,:,:,:,:,:) = rmiss ENDIF IF (ASSOCIATED(this%datiattr%d) .AND. ASSOCIATED(this%dativarattr%d) .AND. & .NOT.ASSOCIATED(this%voldatiattrd)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatiattrd(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativarattr%d), SIZE(this%network), & SIZE(this%datiattr%d))) IF (linivol) this%voldatiattrd(:,:,:,:,:,:,:) = rdmiss ENDIF IF (ASSOCIATED(this%datiattr%i) .AND. ASSOCIATED(this%dativarattr%i) .AND. & .NOT.ASSOCIATED(this%voldatiattri)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatiattri(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativarattr%i), SIZE(this%network), & SIZE(this%datiattr%i))) IF (linivol) this%voldatiattri(:,:,:,:,:,:,:) = imiss ENDIF IF (ASSOCIATED(this%datiattr%b) .AND. ASSOCIATED(this%dativarattr%b) .AND. & .NOT.ASSOCIATED(this%voldatiattrb)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatiattrb(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativarattr%b), SIZE(this%network), & SIZE(this%datiattr%b))) IF (linivol) this%voldatiattrb(:,:,:,:,:,:,:) = ibmiss ENDIF IF (ASSOCIATED(this%datiattr%c) .AND. ASSOCIATED(this%dativarattr%c) .AND. & .NOT.ASSOCIATED(this%voldatiattrc)) THEN CALL vol7d_force_alloc_dati(this, ini) ALLOCATE(this%voldatiattrc(SIZE(this%ana), SIZE(this%time), SIZE(this%level), & SIZE(this%timerange), SIZE(this%dativarattr%c), SIZE(this%network), & SIZE(this%datiattr%c))) IF (linivol) this%voldatiattrc(:,:,:,:,:,:,:) = cmiss ENDIF ! Catch-all method CALL vol7d_force_alloc(this) ! Creo gli indici var-attr