|
◆ 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 709 del file stat_proc_engine.F90.
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 747 TYPE(vol7d_timerange), INTENT(in) :: timerange 748 INTEGER, INTENT(in) :: time_definition 749 TYPE(datetime), INTENT(out) :: reftime 750 TYPE(datetime), INTENT(out) :: pstart
|