From b9db1f9ac6a821eb65972a959aa3ddeb7e544356 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 13 Feb 2018 16:54:21 +0100
Subject: [PATCH] Philippe 13/02/2018: workaround for a compiler problem on
 BlueGene/Q

---
 src/SURFEX/read_direct.F90       | 2 +-
 src/SURFEX/read_direct_gauss.F90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/SURFEX/read_direct.F90 b/src/SURFEX/read_direct.F90
index e82aa9e3d..fbdf768e9 100644
--- a/src/SURFEX/read_direct.F90
+++ b/src/SURFEX/read_direct.F90
@@ -378,7 +378,7 @@ JL = IPAS + 1
 IF (GCOMPRESS) ILINE_COMPRESS = 1
 !
 INODATA = ZNODATA
-INODATA2 = ISHFTC(INODATA,8)
+INODATA2 = ISHFTC(INODATA,8_2)
 ZNODATA2 = INODATA2
 !
 DO 
diff --git a/src/SURFEX/read_direct_gauss.F90 b/src/SURFEX/read_direct_gauss.F90
index cd3819973..0287f69b2 100644
--- a/src/SURFEX/read_direct_gauss.F90
+++ b/src/SURFEX/read_direct_gauss.F90
@@ -388,7 +388,7 @@ IF (GCOMPRESS) ILINE_COMPRESS = 1
 IWORK=0
 !
 INODATA = ZNODATA
-INODATA2 = ISHFTC(INODATA,8)
+INODATA2 = ISHFTC(INODATA,8_2)
 ZNODATA2 = INODATA2
 !
 DO 
-- 
GitLab