libsim Versione 7.2.0
|
◆ 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 694 del file stat_proc_engine.F90. 699! DO i = 1, nt - 1
700! IF (lvertime(i+1) - lvertime(i) > max_step) &
701! max_step = lvertime(i+1) - lvertime(i)
702! ENDDO
703! IF (lvertime(1) - pstart > max_step) max_step = lvertime(1) - pstart
704! IF (pend - lvertime(nt) > max_step) max_step = pend - lvertime(nt)
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
|