SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/temporal

Go to the documentation of this file.
00001 !     #########
00002 FUNCTION TEMPORAL_LTS(TPT1, TPT2) RESULT (OLT)
00003 USE MODD_TYPE_DATE_SURF, ONLY: DATE_TIME
00004 !
00005 !
00006 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00007 USE PARKIND1  ,ONLY : JPRB
00008 !
00009 IMPLICIT NONE
00010 LOGICAL :: OLT
00011 TYPE(DATE_TIME), INTENT(IN) :: TPT1, TPT2
00012 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00013 !
00014 ! TRUE if TPT1 .LT. TPT2
00015 !
00016 !
00017 IF (LHOOK) CALL DR_HOOK('TEMPORAL_LTS',0,ZHOOK_HANDLE)
00018 IF ( TPT1%TDATE%YEAR .EQ. TPT2%TDATE%YEAR ) THEN
00019   IF ( TPT1%TDATE%MONTH .EQ. TPT2%TDATE%MONTH ) THEN
00020     IF ( TPT1%TDATE%DAY .EQ. TPT2%TDATE%DAY ) THEN
00021       OLT = TPT1%TIME .LT. TPT2%TIME
00022     ELSE
00023       OLT = TPT1%TDATE%DAY .LT. TPT2%TDATE%DAY
00024     END IF
00025   ELSE
00026    OLT = TPT1%TDATE%MONTH .LT. TPT2%TDATE%MONTH
00027   END IF
00028 ELSE
00029   OLT = TPT1%TDATE%YEAR .LT. TPT2%TDATE%YEAR
00030 ENDIF
00031 IF (LHOOK) CALL DR_HOOK('TEMPORAL_LTS',1,ZHOOK_HANDLE)
00032 !
00033 END FUNCTION TEMPORAL_LTS