Destructor for finalizing an array object.
If defined, calls the destructor for every element of the array object; finally it deallocates all the space occupied.
707 max_step = pend - pstart
709 half = lvertime(1) + (lvertime(2) - lvertime(1))/2
710 max_step = half - pstart
712 nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
713 IF (nexthalf - half > max_step) max_step = nexthalf - half
716 IF (pend - half > max_step) max_step = pend - half
721 IF (
PRESENT(weights))
THEN
725 CALL getval(pend - pstart, amsec=tdt)
726 half = lvertime(1) + (lvertime(2) - lvertime(1))/2
727 CALL getval(half - pstart, amsec=dt)
728 weights(1) = dble(dt)/dble(tdt)
730 nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
731 CALL getval(nexthalf - half, amsec=dt)
732 weights(i) = dble(dt)/dble(tdt)
735 CALL getval(pend - half, amsec=dt)
736 weights(nt) = dble(dt)/dble(tdt)
740 END SUBROUTINE compute_stat_proc_agg_sw
744 SUBROUTINE time_timerange_get_period(time, timerange, time_definition, &
745 pstart, pend, reftime)
746 TYPE(datetime),
INTENT(in) :: time