libsim Versione 7.1.11
|
◆ arrayof_ttr_mapper_delete()
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.
Definizione alla linea 700 del file stat_proc_engine.F90. 705! old way
706 IF (nt == 1) THEN
707 max_step = pend - pstart
708 ELSE
709 half = lvertime(1) + (lvertime(2) - lvertime(1))/2
710 max_step = half - pstart
711 DO i = 2, nt - 1
712 nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
713 IF (nexthalf - half > max_step) max_step = nexthalf - half
714 half = nexthalf
715 ENDDO
716 IF (pend - half > max_step) max_step = pend - half
717 ENDIF
718
719ENDIF
720
721IF (PRESENT(weights)) THEN
722 IF (nt == 1) THEN
723 weights(1) = 1.0
724 ELSE
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)
729 DO i = 2, nt - 1
730 nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
731 CALL getval(nexthalf - half, amsec=dt)
732 weights(i) = dble(dt)/dble(tdt)
733 half = nexthalf
734 ENDDO
735 CALL getval(pend - half, amsec=dt)
736 weights(nt) = dble(dt)/dble(tdt)
737 ENDIF
738ENDIF
739
740END SUBROUTINE compute_stat_proc_agg_sw
741
742! get start of period, end of period and reference time from time,
743! timerange, according to time_definition.
744SUBROUTINE time_timerange_get_period(time, timerange, time_definition, &
745 pstart, pend, reftime)
746TYPE(datetime),INTENT(in) :: time
|