Jean W. 18/07/2024: SURFEX (quick-fix) DO NOT TAKE to SURFEX offline, Default...

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

@@ -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