libsim  Versione7.2.3

◆ count_distinct_sorted_ttr_mapper()

integer function stat_proc_engine::count_distinct_sorted_ttr_mapper ( type(ttr_mapper), dimension(:), intent(in)  vect,
logical, dimension(:), intent(in), optional  mask 
)

conta gli elementi distinti in un sorted array

Definizione alla linea 832 del file stat_proc_engine.F90.

832  pstart, pend, reftime)
833 TYPE(datetime),INTENT(out) :: time
834 TYPE(vol7d_timerange),INTENT(inout) :: timerange
835 INTEGER,INTENT(in) :: time_definition
836 TYPE(datetime),INTENT(in) :: reftime
837 TYPE(datetime),INTENT(in) :: pstart
838 TYPE(datetime),INTENT(in) :: pend
839 
840 TYPE(timedelta) :: p1, p2
841 INTEGER(kind=int_ll) :: dmsec
842 
843 
844 IF (time_definition == 0) THEN ! time == reference time
845  time = reftime
846  p1 = pend - reftime
847  p2 = pend - pstart
848 ELSE IF (time_definition == 1) THEN ! time == verification time
849  time = pend
850  p1 = pend - reftime
851  p2 = pend - pstart
852 ELSE
853  time = datetime_miss
854 ENDIF
855 
856 IF (time /= datetime_miss) THEN
857  CALL getval(p1, amsec=dmsec) ! end of period
858  timerange%p1 = int(dmsec/1000_int_ll)
859  CALL getval(p2, amsec=dmsec) ! length of period
860  timerange%p2 = int(dmsec/1000_int_ll)

Generated with Doxygen.