838 END SUBROUTINE time_timerange_get_period
843 SUBROUTINE ttr_decoder_decode(time, timerange, time_definition, decoded)
844 TYPE(datetime),
INTENT(in) :: time
845 TYPE(vol7d_timerange),
INTENT(in) :: timerange
846 INTEGER,
INTENT(in) :: time_definition
847 TYPE(ttr_decoder),
INTENT(out) :: decoded
849 TYPE(timedelta) :: p1, p2
852 p1 = timedelta_new(sec=timerange%p1)
853 p2 = timedelta_new(sec=timerange%p2)
855 IF (time == datetime_miss .OR. .NOT.c_e(timerange%p1) .OR. .NOT.c_e(timerange%p2) .OR. &
857 timerange%p1 < 0 .OR. timerange%p2 < 0)
THEN 858 decoded%pstart = datetime_miss
859 decoded%pend = datetime_miss
860 decoded%reftime = datetime_miss
864 IF (time_definition == 0)
THEN 865 decoded%reftime = time
866 decoded%pend = time + p1