From 091f65cb93852c5dd5ff79fe656709e74189710c Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 15 Feb 2019 11:16:40 +0100
Subject: [PATCH] Philippe 15/02/2019: SURFEX: move computation of ZLAND (to
prevent use of non initialized values)
---
src/SURFEX/get_type_dimn.F90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/SURFEX/get_type_dimn.F90 b/src/SURFEX/get_type_dimn.F90
index b3b984622..05c60f73b 100644
--- a/src/SURFEX/get_type_dimn.F90
+++ b/src/SURFEX/get_type_dimn.F90
@@ -1,6 +1,6 @@
-!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!SFX_LIC Copyright 2004-2019 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
-!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SFX_LIC for details. version 1.
! #####################################
SUBROUTINE GET_TYPE_DIM_n (DTCO, U, &
@@ -26,6 +26,7 @@
!! MODIFICATIONS
!! -------------
!! Original 01/2004
+! P. Wautelet 15/02/2019: move computation of ZLAND (to prevent use of non initialized values)
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -99,7 +100,6 @@ ELSE
ZWATER = U%XWATER
ZTOWN = U%XTOWN
END IF
-ZLAND = ZTOWN + ZNATURE
!
ALLOCATE(ZFULL(ILU))
ZFULL=1.
@@ -124,6 +124,7 @@ SELECT CASE (HTYPE)
KDIM = COUNT(ZWATER(:) > 0.)
!
CASE ('LAND ')
+ ZLAND = ZTOWN + ZNATURE
KDIM = COUNT(ZLAND(:) > 0.)
!
END SELECT
--
GitLab