From 1c00a6f9e91c1c0217c71a9101e0306139a296a0 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 28 Jun 2017 18:00:44 +0200
Subject: [PATCH] Juan 28/06/2017: modd_surf_par.F90, for REAL4 put greater
 value for XUNDEF=1.e+9  <-> elsif problem with X/YHAT value == XUNDEF

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

diff --git a/src/SURFEX/modd_surf_par.F90 b/src/SURFEX/modd_surf_par.F90
index e191f6426..2947cd3b0 100644
--- a/src/SURFEX/modd_surf_par.F90
+++ b/src/SURFEX/modd_surf_par.F90
@@ -28,6 +28,7 @@ MODULE MODD_SURF_PAR
 !!    -------------
 !!      Original       02/2004
 !!      J.Escobar     06/2013  for REAL4/8 add EPSILON management
+!!      J.Escobar     06/2017  for REAL4 put greater value for XUNDEF=1.e+9  <-> elsif problem with X/YHAT value == XUNDEF
 !
 !*       0.   DECLARATIONS
 !             ------------
@@ -45,7 +46,7 @@ REAL,    PARAMETER :: XUNDEF = 1.E+20
 #ifdef MNH_MPI_DOUBLE_PRECISION
 REAL,    PARAMETER :: XUNDEF = 1.E+20! HUGE(XUNDEF) ! Z'7FFFFFFFFFFFFFFF' !  undefined value
 #else
-REAL,    PARAMETER :: XUNDEF = 1.E+6 ! HUGE(XUNDEF) ! Z'7FBFFFFF' ! undefined value
+REAL,    PARAMETER :: XUNDEF = 1.E+9 ! HUGE(XUNDEF) ! Z'7FBFFFFF' ! undefined value
 #endif
 #endif
 INTEGER, PARAMETER :: NUNDEF = 1E+9   !  HUGE(NUNDEF) !  undefined value
-- 
GitLab