From 39b367c599aab98c7abcae5db420621843dd1939 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 18 Jul 2024 15:19:10 +0200
Subject: [PATCH]  Marie M. 18/07/2024: cherry-picked from SURFEX offline :
 BugFix: wrong condition in IF statement leading during PREP step to an ABORT
 when ECOSG is used (e6dffe8b)

---
 src/SURFEX/init_isban.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/SURFEX/init_isban.F90 b/src/SURFEX/init_isban.F90
index afb06dc36..20d5bfe85 100644
--- a/src/SURFEX/init_isban.F90
+++ b/src/SURFEX/init_isban.F90
@@ -442,7 +442,7 @@ IF( ((IM%O%CRESPSL/='CNT'.AND.IM%O%CRESPSL/='DIF') .AND. IM%O%LCLEACH) .OR. &
   CALL ABOR1_SFX('INIT_ISBAN: INCONSISTENCY BETWEEN CRESPSL AND LCLEACH')
 ENDIF
 !
-IF(U%LECOSG .AND.(IM%O%CRESPSL/='CNT'.OR.IM%O%CRESPSL/='DIF'.OR.IM%O%LLULCC.OR.IM%O%LFIRE))THEN
+IF(U%LECOSG .AND.(IM%O%CRESPSL=='CNT'.OR.IM%O%CRESPSL=='DIF'.OR.IM%O%LLULCC.OR.IM%O%LFIRE))THEN
   WRITE(ILUOUT,*)'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
   WRITE(ILUOUT,*)'INIT_ISBAN: ECOSG CAN NOT BE USED WITH LAND-USE-CHANGE OR ISBA-CC FOR NOW'
   WRITE(ILUOUT,*)'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
-- 
GitLab