libsim Versione 7.2.1

◆ arrayof_ttr_mapper_delete()

subroutine arrayof_ttr_mapper_delete ( type(arrayof_ttr_mapper this,
logical, intent(in), optional  nodealloc 
)

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.

Parametri
thisarray object to be destroyed
[in]nodeallocif provided and .TRUE. , the space reserved for the array is not deallocated, thus the values are retained, while the array pointer is nullified, this means that the caller must have previously assigned the pointer contents thisarray to another pointer to prevent memory leaks

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

Generated with Doxygen.