Philippe 01/12/2015: bug correction: nullify TZFIELDS_ll at declaration
authorPhilippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Tue, 1 Dec 2015 14:29:31 +0000 (14:29 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/read_all_data_mesonh_case.f90

index d0bbed6..57054d4 100644 (file)
@@ -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
 !
 !------------------------------------------------------------------------------
 !