temporal_lts.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
FUNCTION temporal_lts(TPT1, TPT2) RESULT (OLT)
USE modd_type_date_surf, ONLY: date_time
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
LOGICAL :: OLT
TYPE(date_time), INTENT(IN) :: TPT1, TPT2
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
! TRUE if TPT1 .LT. TPT2
!
!
IF (lhook) CALL dr_hook('TEMPORAL_LTS',0,zhook_handle)
IF ( tpt1%TDATE%YEAR .EQ. tpt2%TDATE%YEAR ) THEN
  IF ( tpt1%TDATE%MONTH .EQ. tpt2%TDATE%MONTH ) THEN
    IF ( tpt1%TDATE%DAY .EQ. tpt2%TDATE%DAY ) THEN
      olt = tpt1%TIME .LT. tpt2%TIME
    ELSE
      olt = tpt1%TDATE%DAY .LT. tpt2%TDATE%DAY
    END IF
  ELSE
   olt = tpt1%TDATE%MONTH .LT. tpt2%TDATE%MONTH
  END IF
ELSE
  olt = tpt1%TDATE%YEAR .LT. tpt2%TDATE%YEAR
ENDIF
IF (lhook) CALL dr_hook('TEMPORAL_LTS',1,zhook_handle)
!
END FUNCTION temporal_lts