From 87b7ffbfd17c06e75825673aef5f93056436559e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 9 Jan 2024 14:51:05 +0100
Subject: [PATCH] Philippe 09/01/2024: SURFEX: manually add modi_lt_date (was
 not generated correctly)

---
 src/SURFEX/lt_date.F90 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/SURFEX/lt_date.F90 b/src/SURFEX/lt_date.F90
index c2420bae2..6ed308b67 100644
--- a/src/SURFEX/lt_date.F90
+++ b/src/SURFEX/lt_date.F90
@@ -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
-- 
GitLab