From 55e15b6caf52e54cc83379c701d21f68db3a477b Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 18 Jul 2024 15:20:12 +0200
Subject: [PATCH] Jean W. 18/07/2024: SURFEX (quick-fix) DO NOT TAKE to SURFEX
offline, Default values for albedo is needed for GARDEN with ECOSG
---
src/SURFEX/teb_veg_properties.F90 | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/src/SURFEX/teb_veg_properties.F90 b/src/SURFEX/teb_veg_properties.F90
index b53bf898b..2115b179a 100644
--- a/src/SURFEX/teb_veg_properties.F90
+++ b/src/SURFEX/teb_veg_properties.F90
@@ -109,6 +109,14 @@ IF (LHOOK) CALL DR_HOOK('TEB_VEG_PROPERTIES',0,ZHOOK_HANDLE)
ZASNOW, ZANOSNOW, ZESNOW, ZENOSNOW, ZTSSNOW, ZTSNOSNOW, &
ZALBNIR_TVEG, ZALBVIS_TVEG, ZALBNIR_TSOIL, ZALBVIS_TSOIL)
!
+!to avoid issues when NO_DATA of ALBEDO for garden J. Wurtz
+!hardfix when nodata for GARDEN
+!need to define albedo for each vegtype in garden
+WHERE ((PMASK(:).GT.0.) .AND. ((ZANOSNOW == XUNDEF) .OR. (ZENOSNOW==XUNDEF)))
+ ZANOSNOW(:)=0.2
+ ZESNOW(:)=0.95
+END WHERE
+!
PEK%XSNOWFREE_ALB(:) = ZANOSNOW
!
!* averaged albedo
--
GitLab