|
◆ arrayof_ttr_mapper_delete()
subroutine, private stat_proc_engine::arrayof_ttr_mapper_delete |
( |
type(arrayof_ttr_mapper) |
this, |
|
|
logical, intent(in), optional |
nodealloc |
|
) |
| |
|
private |
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
-
| this | array object to be destroyed |
[in] | nodealloc | if 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 700 del file stat_proc_engine.F90.
705 max_step = pend - pstart
707 half = lvertime(1) + (lvertime(2) - lvertime(1))/2
708 max_step = half - pstart
710 nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
711 IF (nexthalf - half > max_step) max_step = nexthalf - half
714 IF (pend - half > max_step) max_step = pend - half
719 IF ( PRESENT(weights)) THEN
723 CALL getval(pend - pstart, amsec=tdt)
724 half = lvertime(1) + (lvertime(2) - lvertime(1))/2
725 CALL getval(half - pstart, amsec=dt)
726 weights(1) = dble(dt)/dble(tdt)
728 nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
729 CALL getval(nexthalf - half, amsec=dt)
730 weights(i) = dble(dt)/dble(tdt)
733 CALL getval(pend - half, amsec=dt)
734 weights(nt) = dble(dt)/dble(tdt)
738 END SUBROUTINE compute_stat_proc_agg_sw
742 SUBROUTINE time_timerange_get_period(time, timerange, time_definition, &
743 pstart, pend, reftime)
744 TYPE(datetime), INTENT(in) :: time
745 TYPE(vol7d_timerange), INTENT(in) :: timerange
746 INTEGER, INTENT(in) :: time_definition
|