From 8f268a554ed680e493fe2e6cb50122c51890008a Mon Sep 17 00:00:00 2001
From: Christine Lac <christine.lac@meteo.fr>
Date: Wed, 10 May 2017 11:12:43 +0200
Subject: [PATCH] C.Lac: different initialization for max fields

---
 src/MNH/ini_mean_field.f90 | 22 ++++++++--------------
 1 file changed, 8 insertions(+), 14 deletions(-)

diff --git a/src/MNH/ini_mean_field.f90 b/src/MNH/ini_mean_field.f90
index 2a5e5eca1..36eafb458 100644
--- a/src/MNH/ini_mean_field.f90
+++ b/src/MNH/ini_mean_field.f90
@@ -47,9 +47,7 @@ END MODULE MODI_INI_MEAN_FIELD
 !!    MODIFICATIONS
 !!    -------------
 !!      Original        11/12/09
-!!      Modifications   10/2016 (C.Lac) Add max values
-!!                      04/2017 (P. Wautelet) Initialize MAX variables to lowest possible value
-!!
+!!                      10/2016 (C.Lac) Add max values
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -62,10 +60,6 @@ USE MODD_PARAM_n
 
 IMPLICIT NONE
 !
-REAL :: ZMIN !Largest real negative value
-!
-ZMIN = -HUGE(ZMIN)
-!
 MEAN_COUNT = 0
 
 XUM_MEAN  = 0.0
@@ -83,12 +77,12 @@ XTH2_MEAN = 0.0
 XTEMP2_MEAN = 0.0
 XPABS2_MEAN = 0.0
 
-XUM_MAX  = ZMIN
-XVM_MAX  = ZMIN
-XWM_MAX  = ZMIN
-XTHM_MAX = ZMIN
-XTEMPM_MAX = ZMIN
-IF (CTURB /= 'NONE') XTKEM_MAX = ZMIN
-XPABSM_MAX = ZMIN
+XUM_MAX  = -1.E20
+XVM_MAX  = -1.E20
+XWM_MAX  = -1.E20
+XTHM_MAX = 0.0
+XTEMPM_MAX = 0.0
+IF (CTURB /= 'NONE') XTKEM_MAX = 0.0
+XPABSM_MAX = 0.0
 
 END SUBROUTINE INI_MEAN_FIELD
-- 
GitLab