From 30a24105a65dbff9af1b4a5b86957c7db50b994f Mon Sep 17 00:00:00 2001
From: Pierre-Antoine Joulin <joulin.pierre-antoine@ifpen.fr>
Date: Mon, 17 Apr 2023 10:30:28 +0200
Subject: [PATCH] ADR : correction in eol_kine_alm

---
 src/MNH/eol_kine_alm.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/eol_kine_alm.f90 b/src/MNH/eol_kine_alm.f90
index 43cfb7bee..927280a66 100644
--- a/src/MNH/eol_kine_alm.f90
+++ b/src/MNH/eol_kine_alm.f90
@@ -116,7 +116,7 @@ ZTIME = TDTCUR%xtime+(KTSUBCOUNT)*PTSUBSTEP
 !
 !*       1.3 Tecplotfile : opening + headers
 IF (LTECOUTPTS) THEN
- CALL OPEN_TECOUT(ITECOUT, KTCOUNT, KTSUBCOUNT)
+ CALL OPEN_TECOUT_ALM(ITECOUT, KTCOUNT, KTSUBCOUNT)
 END IF
 IF (LCSVOUTFRM) THEN
  CALL OPEN_3DCSV_ALM(ICSVOUT, KTCOUNT, KTSUBCOUNT)
-- 
GitLab