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

Philippe 16/02/2018: SURFEX: initialize ILINE_COMPRESS to prevent crash with XLF

parent 0b429b80
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
+ 2
− 0
View file @ 6d3fd523
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
!! !!
!! V. Masson, March 2010 Optimization of some lat/lon boundaries computations !! V. Masson, March 2010 Optimization of some lat/lon boundaries computations
!! J.Escobar 06/2013 for REAL4/8 add EPSILON management !! 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 !* 0. DECLARATION
...@@ -375,6 +376,7 @@ ICPT = 0 ...@@ -375,6 +376,7 @@ ICPT = 0
! !
JL = IPAS + 1 JL = IPAS + 1
! !
ILINE_COMPRESS = 0
IF (GCOMPRESS) ILINE_COMPRESS = 1 IF (GCOMPRESS) ILINE_COMPRESS = 1
! !
INODATA = ZNODATA INODATA = ZNODATA
......
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