vol7d_copy

vol7d_copy() subroutine vol7d_copy ( type(vol7d), intent(in) this, type(vol7d), intent(inout) that, 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 ) Metodo per creare una copia completa e indipendente di un oggetto vol7d. Questo metodo crea un duplicato di tutti i membri di un oggetto vol7d, con la possibilità di rielaborarlo durante la copia. Se l'oggetto da copiare è vuoto non perde tempo inutile. Attenzione, il codice: USE vol7d_class TYPE(vol7d) :: vol1, vol2 CALL init(vol1) CALL init(vol2) ... ! riempio vol1 vol2 = vol1 fa una cosa diversa rispetto a: USE vol7d_class TYPE(vol7d) :: vol1, vol2 CALL init(vol1) CALL init(vol2) ... ! riempio vol1 CALL vol7d_copy(vol1, vol2) nel primo caso, infatti, l'operatore di assegnazione copia solo i componenti statici di vol1 nei corrispondenti elementi di vol2, mentre i componenti che sono allocati dinamicamente (cioè quelli che in vol7d hanno l'attributo POINTER, in pratica quasi tutti) non vengono duplicati, ma per essi vol2 conterrà un puntatore al corrispondente elemento a cui già punta vol1, e quindi eventuali cambiamenti al contenuto di uno dei due oggetti influenzerà il contenuto dell'altro; nel secondo caso, invece, vol1 e vol2 sono, dopo la vol7d_copy, 2 istanze completamente indipendenti, ma uguali tra loro per contenuto, della classe vol7d, e quindi hanno vita indipendente. Parametri [in] this oggetto origine [in,out] that oggetto destinazione [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 Definizione alla linea 1903 del file vol7d_class.F90. !> Sorts the sortable dimensions in the volume \a 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. SUBROUTINE vol7d_smart_sort(this, lsort_time, lsort_timerange, lsort_level) TYPE(vol7d),INTENT(INOUT) :: this !< object to be sorted LOGICAL,OPTIONAL,INTENT(in) :: lsort_time !< if present and \a .TRUE., sort time dimension if it is not sorted in ascending order LOGICAL,OPTIONAL,INTENT(in) :: lsort_timerange !< if present and \a .TRUE., sort timerange dimension if it is not sorted in ascending order LOGICAL,OPTIONAL,INTENT(in) :: lsort_level !< if present and \a .TRUE., sort vertical level dimension if it is not sorted in ascending order INTEGER :: i LOGICAL :: to_be_sorted to_be_sorted = .false. CALL vol7d_alloc_vol(this) ! usual safety check IF (optio_log(lsort_time)) THEN DO i = 2, SIZE(this%time) IF (this%time(i) < this%time(i-1)) THEN to_be_sorted = .true. EXIT ENDIF ENDDO ENDIF IF (optio_log(lsort_timerange)) THEN DO i = 2, SIZE(this%timerange) IF (this%timerange(i) < this%timerange(i-1)) THEN to_be_sorted = .true. EXIT ENDIF ENDDO ENDIF IF (optio_log(lsort_level)) THEN DO i = 2, SIZE(this%level) IF (this%level(i) < this%level(i-1)) THEN to_be_sorted = .true. EXIT ENDIF ENDDO ENDIF IF (to_be_sorted) CALL vol7d_reform(this, & lsort_time=lsort_time, lsort_timerange=lsort_timerange, lsort_level=lsort_level ) END SUBROUTINE vol7d_smart_sort !> Filter the contents of a volume keeping only desired data. !! This subroutine filters a vol7d object by keeping only a subset of !! the data contained. It can keep only times within a specified !! interval, only station networks contained in a list and only !! specified station or data variables. If a filter parameter is not !! provided, no filtering will take place according to that criterion. !! The volume is reallocated keeping only the desired data. SUBROUTINE vol7d_filter(this, avl, vl, nl, s_d, e_d) TYPE(vol7d),INTENT(inout) :: this !< volume to be filtered CHARACTER(len=*),INTENT(in),OPTIONAL :: avl(:) !< list of station variables to be kept, if not provided or of zero length, all variables are kept CHARACTER(len=*),INTENT(in),OPTIONAL :: vl(:) !< list of data variables to be kept, if not provided or of zero length, all variables are kept TYPE(vol7d_network),OPTIONAL :: nl(:) !< list of station networks to be kept, if not provided or of zero length, all networks are kept TYPE(datetime),INTENT(in),OPTIONAL :: s_d !< initial time interval for time filtering, if not provided or equal to missing data no lower limit is imposed TYPE(datetime),INTENT(in),OPTIONAL :: e_d !< final time interval for time filtering, if not provided or equal to missing data no upper limit is imposed INTEGER :: i IF (PRESENT(avl)) THEN IF (SIZE(avl) > 0) THEN IF (ASSOCIATED(this%anavar%r)) THEN DO i = 1, SIZE(this%anavar%r) IF (all(this%anavar%r(i)%btable /= avl)) this%anavar%r(i) = vol7d_var_miss ENDDO ENDIF IF (ASSOCIATED(this%anavar%i)) THEN DO i = 1, SIZE(this%anavar%i) IF (all(this%anavar%i(i)%btable /= avl)) this%anavar%i(i) = vol7d_var_miss ENDDO ENDIF IF (ASSOCIATED(this%anavar%b)) THEN DO i = 1, SIZE(this%anavar%b) IF (all(this%anavar%b(i)%btable /= avl)) this%anavar%b(i) = vol7d_var_miss ENDDO ENDIF IF (ASSOCIATED(this%anavar%d)) THEN DO i = 1, SIZE(this%anavar%d) IF (all(this%anavar%d(i)%btable /= avl)) this%anavar%d(i) = vol7d_var_miss