diff --git a/src/SURFEX/teb_veg_properties.F90 b/src/SURFEX/teb_veg_properties.F90 index b53bf898bbf9545a27b64147406d5a05bb097a96..2115b179a4a8ebe7f418d2612b3732b27014d0f5 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