|
◆ vol7d_reform()
subroutine vol7d_class::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 2053 del file vol7d_class.F90.
2058 call vol7d_copy(this, v7d_tmp, & 2059 lanavarr=fv, lanavard=fv, lanavari=fv, lanavarb=acn, lanavarc=fv, & 2060 lanaattrr=fv, lanaattrd=fv, lanaattri=fv, lanaattrb=fv, lanaattrc=fv, & 2061 lanavarattrr=fv, lanavarattrd=fv, lanavarattri=fv, lanavarattrb=fv, lanavarattrc=fv, & 2062 ldativarr=fv, ldativard=fv, ldativari=fv, ldativarb=tv, ldativarc=fv, & 2063 ldatiattrr=fv, ldatiattrd=fv, ldatiattri=fv, ldatiattrb=fv, ldatiattrc=fv, & 2064 ldativarattrr=fv, ldativarattrd=fv, ldativarattri=fv, ldativarattrb=fv, ldativarattrc=fv) 2067 IF ( ASSOCIATED(v7d_tmp%dativar%b)) THEN 2069 ALLOCATE(v7d_tmp%voldatir( SIZE(v7d_tmp%voldatib, 1), SIZE(v7d_tmp%voldatib, 2), & 2070 SIZE(v7d_tmp%voldatib, 3), SIZE(v7d_tmp%voldatib, 4), SIZE(v7d_tmp%voldatib, 5), & 2071 SIZE(v7d_tmp%voldatib, 6))) 2072 DO i = 1, SIZE(v7d_tmp%dativar%b) 2073 v7d_tmp%voldatir(:,:,:,:,i,:) = & 2074 realdat(v7d_tmp%voldatib(:,:,:,:,i,:), v7d_tmp%dativar%b(i)) 2076 DEALLOCATE(v7d_tmp%voldatib) 2078 v7d_tmp%dativar%r => v7d_tmp%dativar%b 2079 NULLIFY(v7d_tmp%dativar%b) 2082 CALL vol7d_merge(that, v7d_tmp) 2089 call vol7d_copy(this, v7d_tmp, & 2090 lanavarr=fv, lanavard=fv, lanavari=fv, lanavarb=fv, lanavarc=acn, & 2091 lanaattrr=fv, lanaattrd=fv, lanaattri=fv, lanaattrb=fv, lanaattrc=fv, & 2092 lanavarattrr=fv, lanavarattrd=fv, lanavarattri=fv, lanavarattrb=fv, lanavarattrc=fv, & 2093 ldativarr=fv, ldativard=fv, ldativari=fv, ldativarb=fv, ldativarc=tv, & 2094 ldatiattrr=fv, ldatiattrd=fv, ldatiattri=fv, ldatiattrb=fv, ldatiattrc=fv, & 2095 ldativarattrr=fv, ldativarattrd=fv, ldativarattri=fv, ldativarattrb=fv, ldativarattrc=fv) 2098 IF ( ASSOCIATED(v7d_tmp%dativar%c)) THEN 2100 ALLOCATE(v7d_tmp%voldatir( SIZE(v7d_tmp%voldatic, 1), SIZE(v7d_tmp%voldatic, 2), & 2101 SIZE(v7d_tmp%voldatic, 3), SIZE(v7d_tmp%voldatic, 4), SIZE(v7d_tmp%voldatic, 5), & 2102 SIZE(v7d_tmp%voldatic, 6))) 2103 DO i = 1, SIZE(v7d_tmp%dativar%c) 2104 v7d_tmp%voldatir(:,:,:,:,i,:) = & 2105 realdat(v7d_tmp%voldatic(:,:,:,:,i,:), v7d_tmp%dativar%c(i)) 2107 DEALLOCATE(v7d_tmp%voldatic) 2109 v7d_tmp%dativar%r => v7d_tmp%dativar%c 2110 NULLIFY(v7d_tmp%dativar%c) 2113 CALL vol7d_merge(that, v7d_tmp) Distruttori per le 2 classi.
|