libsim Versione 7.2.6
|
◆ count_distinct_ttr_mapper()
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
This module contains functions that are only for internal use of the library. Definition stat_proc_engine.F90:211 |