libsim Versione 7.2.6

◆ count_distinct_ttr_mapper()

integer function count_distinct_ttr_mapper ( type(ttr_mapper), dimension(:), intent(in) vect,
logical, dimension(:), intent(in), optional mask,
logical, intent(in), optional back )

conta gli elementi distinti in vect

Definizione alla linea 855 del file stat_proc_engine.F90.

856END SUBROUTINE time_timerange_get_period_pop
857
858
859! set time, timerange%p1, timerange%p2 according to pstart, pend,
860! reftime and time_definition.
861SUBROUTINE time_timerange_set_period(time, timerange, time_definition, &
862 pstart, pend, reftime)
863TYPE(datetime),INTENT(out) :: time
864TYPE(vol7d_timerange),INTENT(inout) :: timerange
865INTEGER,INTENT(in) :: time_definition
866TYPE(datetime),INTENT(in) :: reftime
867TYPE(datetime),INTENT(in) :: pstart
868TYPE(datetime),INTENT(in) :: pend
869
870TYPE(timedelta) :: p1, p2
871INTEGER(kind=int_ll) :: dmsec
872
873
874IF (time_definition == 0) THEN ! time == reference time
875 time = reftime
876 p1 = pend - reftime
877 p2 = pend - pstart
878ELSE IF (time_definition == 1 .OR. time_definition == 2) THEN ! time == verification time
879 time = pend
880 p1 = pend - reftime
881 p2 = pend - pstart
882ELSE
883 time = datetime_miss
884ENDIF
885
886IF (time /= datetime_miss) THEN
887 CALL getval(p1, amsec=dmsec) ! end of period
888 timerange%p1 = int(dmsec/1000_int_ll)
889 CALL getval(p2, amsec=dmsec) ! length of period
890 timerange%p2 = int(dmsec/1000_int_ll)
891ELSE
892 timerange%p1 = imiss
893 timerange%p2 = imiss
894ENDIF
895
896END SUBROUTINE time_timerange_set_period
897
898
899END MODULE stat_proc_engine
This module contains functions that are only for internal use of the library.

Generated with Doxygen.