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