diff --git a/src/SURFEX/read_direct.F90 b/src/SURFEX/read_direct.F90
index e82aa9e3dcfdd118be26cb6c22dda5dff3cd2925..fbdf768e949b3f46483abef03b2ed8f6ab245e22 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 cd38199731711a17a057a2e4492a71c23472b483..0287f69b2f2a0555fdfbc486327f800996d3550b 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