Skip to content
Snippets Groups Projects
Commit 87b7ffbf authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 09/01/2024: SURFEX: manually add modi_lt_date (was not generated correctly)

parent 3b6e334c
No related branches found
No related tags found
No related merge requests found
......@@ -2,6 +2,19 @@
!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.
MODULE MODI_LT_DATE
INTERFACE
FUNCTION LT_DATE(DATE1, DATE2)
USE MODD_TYPE_DATE_SURF
!
IMPLICIT NONE
!
TYPE(DATE_TIME), INTENT(IN) :: DATE1, DATE2
LOGICAL :: LT_DATE !Boolean flush to true if date1 is lower than date2
END FUNCTION LT_DATE
END INTERFACE
END MODULE MODI_LT_DATE
!
FUNCTION LT_DATE(DATE1, DATE2)
!!
!!*** *LT_DATE* -
......@@ -30,6 +43,8 @@ FUNCTION LT_DATE(DATE1, DATE2)
!! ------------------
!
USE MODD_TYPE_DATE_SURF
!
IMPLICIT NONE
!
TYPE(DATE_TIME), INTENT(IN) :: DATE1, DATE2
LOGICAL :: LT_DATE !Boolean flush to true if date1 is lower than date2
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment