Juan 28/06/2017: modd_surf_par.F90, for REAL4 put greater value for XUNDEF=1.e+9...
authorESCOBAR Juan <escj@nuwa>
Wed, 28 Jun 2017 16:00:44 +0000 (18:00 +0200)
committerJuan Escobar <escj@aero.obs-mip.fr>
Thu, 29 Jun 2017 08:17:54 +0000 (10:17 +0200)
(cherry picked from commit 1c00a6f9e91c1c0217c71a9101e0306139a296a0)

src/SURFEX/modd_surf_par.F90

index 018e6e2..c3f6bf0 100644 (file)
@@ -27,6 +27,8 @@ MODULE MODD_SURF_PAR
 !!    MODIFICATIONS
 !!    -------------
 !!      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
 !             ------------
@@ -44,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