Philippe 08/10/2024: OPEN_PRC_FILES: smallfix: nullify by default an intent(OUT) pointer

f8d60cb0 · WAUTELET Philippe · 26454768 · f8d60cb0
Commit f8d60cb0 authored 6 months ago by WAUTELET Philippe
--- 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