From b7a2ec4a6d6a72fe2171f42febf2a64c8d70cd2a Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 8 Aug 2024 14:01:09 +0200
Subject: [PATCH] Quentin 08/08/2024: bugfix of 34568d5a in which PDATA_GARDEN
is init to XUNDEF (and not 0 as before); some points with DATA_TOWN==0 has
now XUNDEF value for DATA_GARDEN which is not possible
---
src/SURFEX/arrange_cover.F90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/SURFEX/arrange_cover.F90 b/src/SURFEX/arrange_cover.F90
index a48489ee5..c9a497781 100644
--- a/src/SURFEX/arrange_cover.F90
+++ b/src/SURFEX/arrange_cover.F90
@@ -155,7 +155,8 @@ IF(OTOWN_TO_ROCK)THEN
IF (OECOSG) DTCO%XDATA_VEGTYPE(SUM(NTYPE(1:3))+1:SUM(NTYPE(1:3))+10,NVT_ROCK)=1. ! #rustine
!
DO JCOVER=1,JPCOVER
- IF(DTCO%XDATA_TOWN(JCOVER)>0.0.OR.DTCO%XDATA_GARDEN(JCOVER)>0.0)THEN
+
+ IF(DTCO%XDATA_TOWN(JCOVER)>0.0.OR.DTCO%XDATA_GARDEN(JCOVER)>0.0 .AND. .NOT. DTCO%XDATA_GARDEN(JCOVER)==XUNDEF )THEN
!
DTCO%XDATA_NATURE(JCOVER) = DTCO%XDATA_NATURE(JCOVER) + DTCO%XDATA_GARDEN(JCOVER) * DTCO%XDATA_TOWN(JCOVER)
DTCO%XDATA_TOWN (JCOVER) = DTCO%XDATA_TOWN (JCOVER) * ( 1. - DTCO%XDATA_GARDEN(JCOVER))
--
GitLab