libsim Versione 7.2.0
|
◆ vol7d_decompute_stat_proc()
Method to transform the timerange of a set of data from statistically processed to instantaneous. The data does not change, only time and timerange descriptors change. The output that vol7d object contains elements from the original volume this satisfying the conditions
Output data will have timerange 254, p1 = 0 and p2 = 0; the time dimension is shifted by half step so that it coincides with the mid point of the input statistical processing interval.
Definizione alla linea 942 del file vol7d_class_compute.F90. 943 ENDDO
944 ENDDO
945 ENDDO
946 ENDIF
947 ENDDO
948 ENDDO
949 ENDDO
950 ENDDO
951ENDIF
952
953! this should be avoided by sorting descriptors upstream
954! descriptors now are sorted upstream with a dirty and expensive trick
955! but the order may be scrambled in the call to vol7d_merge above
956CALL vol7d_smart_sort(that, lsort_time=.TRUE., lsort_timerange=.TRUE.)
957
958CALL makeother(.TRUE.)
959
960CONTAINS
961
962SUBROUTINE makeother(filter)
963LOGICAL,INTENT(in) :: filter
964IF (PRESENT(other)) THEN
965 IF (filter) THEN ! create volume with the remaining data for further processing
966 CALL vol7d_copy(this, other, miss=.false., sort=.false., unique=.false., &
967 ltimerange=(this%timerange(:)%timerange /= stat_proc))
968 ELSE
969 CALL vol7d_copy(this, other, miss=.false., sort=.false., unique=.false.)
970 ENDIF
971ENDIF
972END SUBROUTINE makeother
973
974END SUBROUTINE vol7d_recompute_stat_proc_diff
975
976
|