From b372c897daf932c2f647f32af7f7773f90bf396a Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 6 Jun 2024 13:43:52 +0200
Subject: [PATCH] Philippe 06/06/2024: fix for the previous commit

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

diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 51df4aaed..2203518ad 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -2356,7 +2356,7 @@ IF (OEXIT) THEN
   END IF
   !
   CALL IO_File_close(TINIFILE)
-  IF ( CSURF == "EXTE" .AND. .NOT.ASSOCIATED( TINIFILE, TINIFILEPGD ) ) CALL IO_File_close( TINIFILEPGD )
+  IF ( CSURF == "EXTE" .AND. ASSOCIATED( TINIFILEPGD ) ) CALL IO_File_close( TINIFILEPGD )
 !
 !*       28.1   print statistics!
 !
-- 
GitLab