10 USE yomhook
,ONLY : lhook, dr_hook
11 USE parkind1
,ONLY : jprb
16 REAL(KIND=JPRB) :: zhook_handle
21 IF (lhook) CALL dr_hook(
'TEMPORAL_LTS',0,zhook_handle)
22 IF ( tpt1%TDATE%YEAR .EQ. tpt2%TDATE%YEAR )
THEN
23 IF ( tpt1%TDATE%MONTH .EQ. tpt2%TDATE%MONTH )
THEN
24 IF ( tpt1%TDATE%DAY .EQ. tpt2%TDATE%DAY )
THEN
25 olt = tpt1%TIME .LT. tpt2%TIME
27 olt = tpt1%TDATE%DAY .LT. tpt2%TDATE%DAY
30 olt = tpt1%TDATE%MONTH .LT. tpt2%TDATE%MONTH
33 olt = tpt1%TDATE%YEAR .LT. tpt2%TDATE%YEAR
35 IF (lhook) CALL dr_hook(
'TEMPORAL_LTS',1,zhook_handle)
logical function temporal_lts(TPT1, TPT2)