Philippe 01/12/2015: bug correction: nullify TZFIELDS_ll at declaration

34fbfb85 · WAUTELET Philippe · WAUTELET Philippe · a3c126fe · 34fbfb85
Commit 34fbfb85 authored 9 years ago by WAUTELET Philippe Committed by WAUTELET Philippe 8 years ago
--- 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
 !
 !------------------------------------------------------------------------------
 !