|
◆ 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.
710 TYPE(datetime), INTENT(in) :: vertime(:) 711 TYPE(datetime), INTENT(in) :: pstart 712 TYPE(datetime), INTENT(in) :: pend 713 LOGICAL, INTENT(in) :: time_mask(:) 714 TYPE(timedelta), OPTIONAL, INTENT(out) :: max_step 715 DOUBLE PRECISION, OPTIONAL, INTENT(out) :: weights(:) 718 TYPE(datetime), ALLOCATABLE :: lvertime(:) 719 TYPE(datetime) :: half, nexthalf 720 INTEGER(kind=int_ll) :: dt, tdt 722 nt = count(time_mask) 723 ALLOCATE(lvertime(nt)) 724 lvertime = pack(vertime, mask=time_mask) 726 IF ( PRESENT(max_step)) THEN 737 max_step = pend - pstart 739 half = lvertime(1) + (lvertime(2) - lvertime(1))/2 740 max_step = half - pstart 742 nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2 743 IF (nexthalf - half > max_step) max_step = nexthalf - half 746 IF (pend - half > max_step) max_step = pend - half
|