From 4e48fcce252289ffc8ab25066fa1261b8d790ba7 Mon Sep 17 00:00:00 2001
From: sebastien masson <smasson@amphitrite.locean-ipsl.upmc.fr>
Date: Thu, 25 Aug 2022 17:55:06 +0200
Subject: [PATCH] correct previous merge, #68

---
 src/OCE/IOM/iom.F90 | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/OCE/IOM/iom.F90 b/src/OCE/IOM/iom.F90
index 7a102477c..49433e40e 100644
--- a/src/OCE/IOM/iom.F90
+++ b/src/OCE/IOM/iom.F90
@@ -1207,8 +1207,6 @@ CONTAINS
       !---------------------------------------------------------------------
       CHARACTER(LEN=lc)                               ::   context
       !
-      ! CE : llok must be initialised otherwise the model crash in debug mode
-      llok = .TRUE.
       CALL set_xios_context(kiomid, context)
       inlev = -1
       IF( PRESENT(pv_r3d) )   inlev = SIZE(pv_r3d, 3)
-- 
GitLab