Skip to content
Snippets Groups Projects
Commit b9db1f9a authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 13/02/2018: workaround for a compiler problem on BlueGene/Q

parent 4a9e2c08
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/SURFEX/read_direct.F90
+ 1
− 1
View file @ b9db1f9a
......@@ -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
......
src/SURFEX/read_direct_gauss.F90
+ 1
− 1
View file @ b9db1f9a
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme