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_smart_sort() subroutine vol7d_smart_sort ( type(vol7d), intent(inout) this, logical, intent(in), optional lsort_time, logical, intent(in), optional lsort_timerange, logical, intent(in), optional lsort_level ) Sorts the sortable dimensions in the volume this only when necessary. Most of the times, the time, timerange and level dimensions in a vol7d object are correctly sorted; on the other side many methods strictly rely on this fact in order to work correctly. This method performs a quick check and sorts the required dimensions only if they are not sorted in ascending order yet, improving safety without impairing much performance. Parametri [in,out] this object to be sorted [in] lsort_time if present and .TRUE., sort time dimension if it is not sorted in ascending order [in] lsort_timerange if present and .TRUE., sort timerange dimension if it is not sorted in ascending order [in] lsort_level if present and .TRUE., sort vertical level dimension if it is not sorted in ascending order Definizione alla linea 2099 del file vol7d_class.F90. IF (optio_log(anaconv)) THEN acp=fv acn=tv ELSE acp=tv acn=fv ENDIF ! Volume con solo i dati reali e tutti gli attributi ! l'anagrafica e` copiata interamente se necessario CALL vol7d_copy(this, that, & lanavarr=tv, lanavard=acp, lanavari=acp, lanavarb=acp, lanavarc=acp, & ldativarr=tv, ldativard=fv, ldativari=fv, ldativarb=fv, ldativarc=fv) ! Volume solo di dati double CALL vol7d_copy(this, v7d_tmp, & lanavarr=fv, lanavard=acn, lanavari=fv, lanavarb=fv, lanavarc=fv, & lanaattrr=fv, lanaattrd=fv, lanaattri=fv, lanaattrb=fv, lanaattrc=fv, & lanavarattrr=fv, lanavarattrd=fv, lanavarattri=fv, lanavarattrb=fv, lanavarattrc=fv, & ldativarr=fv, ldativard=tv, ldativari=fv, ldativarb=fv, ldativarc=fv, & ldatiattrr=fv, ldatiattrd=fv, ldatiattri=fv, ldatiattrb=fv, ldatiattrc=fv, & ldativarattrr=fv, ldativarattrd=fv, ldativarattri=fv, ldativarattrb=fv, ldativarattrc=fv) ! converto a dati reali IF (ASSOCIATED(v7d_tmp%anavar%d) .OR. ASSOCIATED(v7d_tmp%dativar%d)) THEN IF (ASSOCIATED(v7d_tmp%anavar%d)) THEN ! alloco i dati reali e vi trasferisco i double ALLOCATE(v7d_tmp%volanar(SIZE(v7d_tmp%volanad, 1), SIZE(v7d_tmp%volanad, 2), & SIZE(v7d_tmp%volanad, 3))) DO i = 1, SIZE(v7d_tmp%anavar%d) v7d_tmp%volanar(:,i,:) = & realdat(v7d_tmp%volanad(:,i,:), v7d_tmp%anavar%d(i)) ENDDO DEALLOCATE(v7d_tmp%volanad) ! trasferisco le variabili v7d_tmp%anavar%r => v7d_tmp%anavar%d NULLIFY(v7d_tmp%anavar%d) ENDIF