diff --git a/src/MNH/read_all_data_mesonh_case.f90 b/src/MNH/read_all_data_mesonh_case.f90
index d0bbed68fff173d677b115739150a4ab0450d7a6..57054d46a0f2c5c61e0e1729f91f1378556c3783 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
 !
 !------------------------------------------------------------------------------
 !