From 34fbfb8542f60bb1a1193a24e0b08d710fc14d2f Mon Sep 17 00:00:00 2001
From: Philippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 1 Dec 2015 14:29:31 +0000
Subject: [PATCH] Philippe 01/12/2015: bug correction: nullify TZFIELDS_ll at
 declaration

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

diff --git a/src/MNH/read_all_data_mesonh_case.f90 b/src/MNH/read_all_data_mesonh_case.f90
index d0bbed68f..57054d46a 100644
--- a/src/MNH/read_all_data_mesonh_case.f90
+++ b/src/MNH/read_all_data_mesonh_case.f90
@@ -202,7 +202,7 @@ INTEGER                           :: IPRE_REAL1
 !
 !20131113 add vars related to ADD3DFIELD and UPDATE_HALO
 INTEGER :: IINFO_ll
-TYPE(LIST_ll), POINTER :: TZFIELDS_ll   ! list of fields to exchange
+TYPE(LIST_ll), POINTER :: TZFIELDS_ll => NULL() ! list of fields to exchange
 !
 !------------------------------------------------------------------------------
 !
-- 
GitLab