From 6d3fd52345b9252793a46481e2577f69a8e816d6 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 16 Feb 2018 15:31:35 +0100
Subject: [PATCH] Philippe 16/02/2018: SURFEX: initialize ILINE_COMPRESS to
 prevent crash with XLF

---
 src/SURFEX/read_direct.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/SURFEX/read_direct.F90 b/src/SURFEX/read_direct.F90
index fbdf768e9..608ea4c4e 100644
--- a/src/SURFEX/read_direct.F90
+++ b/src/SURFEX/read_direct.F90
@@ -36,6 +36,7 @@
 !!
 !! V. Masson, March 2010     Optimization of some lat/lon boundaries computations
 !!      J.Escobar     06/2013  for REAL4/8 add EPSILON management
+!! P. Wautelet 16/02/2018: initialize ILINE_COMPRESS to prevent crash with XLF
 !----------------------------------------------------------------------------
 !
 !*    0.     DECLARATION
@@ -375,6 +376,7 @@ ICPT = 0
 !
 JL = IPAS + 1
 !
+ILINE_COMPRESS = 0
 IF (GCOMPRESS) ILINE_COMPRESS = 1
 !
 INODATA = ZNODATA
-- 
GitLab