From acded16c60799ce5f39fa00f76a0e681ddf56e77 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 11 Apr 2019 09:29:52 +0200
Subject: [PATCH] Philippe 11/04/2019: bugfix: nullify TZTRACFILE when
 appropriate

---
 src/MNH/compute_r00.f90 | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90
index 81249e665..11d21a89f 100644
--- a/src/MNH/compute_r00.f90
+++ b/src/MNH/compute_r00.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
 !-----------------------------------------------------------------
 !     ###############################
@@ -56,6 +56,7 @@ END MODULE MODI_COMPUTE_R00
 !!                              change of YCOMMENT
 !!     Mai 2016 (G.Delautier) replace LG?M by LG?T
 !!  Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+!  P. Wautelet 11/04/2019: bugfix: nullify TZTRACFILE when appropriate
 !-------------------------------------------------------------------------------
 !
 !*       0.     DECLARATIONS
@@ -123,6 +124,7 @@ TYPE(TFILEDATA),POINTER            :: TZTRACFILE
 !*       1.0    INITIALIZATION
 !               --------------
 !
+TZTRACFILE => NULL()
 ZSPVAL=-1.E+11
 IKU=SIZE(XZHAT)
 !
@@ -238,6 +240,7 @@ END IF
 ! is performed
 DO JFILECUR=1,NFILES
   !
+  TZTRACFILE => NULL()
   CALL IO_FILE_ADD2LIST(TZTRACFILE,CFILES(NBRFILES(JFILECUR)),'UNKNOWN','READ',KLFITYPE=2,KLFIVERB=NVERB)
   CALL IO_FILE_OPEN_ll(TZTRACFILE)
 !
-- 
GitLab