From f8d60cb006f6d1d80b0af65a327856c57665a5fb Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@cnrs.fr>
Date: Tue, 8 Oct 2024 10:20:24 +0200
Subject: [PATCH] Philippe 08/10/2024: OPEN_PRC_FILES: smallfix: nullify by
 default an intent(OUT) pointer

---
 src/MNH/open_prc_files.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/MNH/open_prc_files.f90 b/src/MNH/open_prc_files.f90
index 480581e46..7a615a652 100644
--- a/src/MNH/open_prc_files.f90
+++ b/src/MNH/open_prc_files.f90
@@ -177,6 +177,8 @@ HSURFFILETYPE='MESONH'
 HCAMSFILE=''
 HCAMSFILETYPE='NETCDF'
 !
+TPATMFILE => NULL()
+!
 !-------------------------------------------------------------------------------
 !
 !*       2.    OPENNING OF THE OUTPUT LISTING FILE
-- 
GitLab