libsim Versione 7.1.11
|
◆ count_distinct_sorted_ttr_mapper()
conta gli elementi distinti in un sorted array Definizione alla linea 827 del file stat_proc_engine.F90. 828
829! set time, timerange%p1, timerange%p2 according to pstart, pend,
830! reftime and time_definition.
831SUBROUTINE time_timerange_set_period(time, timerange, time_definition, &
832 pstart, pend, reftime)
833TYPE(datetime),INTENT(out) :: time
834TYPE(vol7d_timerange),INTENT(inout) :: timerange
835INTEGER,INTENT(in) :: time_definition
836TYPE(datetime),INTENT(in) :: reftime
837TYPE(datetime),INTENT(in) :: pstart
838TYPE(datetime),INTENT(in) :: pend
839
840TYPE(timedelta) :: p1, p2
841INTEGER(kind=int_ll) :: dmsec
842
843
844IF (time_definition == 0) THEN ! time == reference time
845 time = reftime
846 p1 = pend - reftime
847 p2 = pend - pstart
848ELSE IF (time_definition == 1) THEN ! time == verification time
849 time = pend
850 p1 = pend - reftime
851 p2 = pend - pstart
852ELSE
853 time = datetime_miss
854ENDIF
855
856IF (time /= datetime_miss) THEN
|