Philippe 06/06/2024: fix for the previous commit

b372c897 · WAUTELET Philippe · 1dc9f84b · b372c897
Commit b372c897 authored 10 months ago by WAUTELET Philippe
--- 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!
 !