diff --git a/src/SURFEX/isba_meb.F90 b/src/SURFEX/isba_meb.F90 index 511af70b79a50f336f1a5eae08476de1065f668f..a00c18bc1898a98d8ae7a7f23a6f8dc52e510e47 100644 --- a/src/SURFEX/isba_meb.F90 +++ b/src/SURFEX/isba_meb.F90 @@ -78,14 +78,14 @@ USE MODD_DIAG_MISC_ISBA_n, ONLY : DIAG_MISC_ISBA_t ! USE MODD_SURF_PAR, ONLY : XUNDEF USE MODD_CSTS, ONLY : XCPD, XDAY, XRHOLW, XLVTT, XLSTT -USE MODD_MEB_PAR, ONLY : XSW_WGHT_VIS, XSW_WGHT_NIR +USE MODD_MEB_PAR, ONLY : XLITTER_HYD_Z4, XLITTER_HYD_Z5, XSW_WGHT_VIS, XSW_WGHT_NIR USE MODD_ISBA_PAR, ONLY : XRS_MAX, XLIMH USE MODD_DATA_COVER_PAR, ONLY : NVT_SNOW ! USE MODD_TYPE_DATE_SURF, ONLY : DATE_TIME ! USE MODE_THERMOS -USE MODE_MEB, ONLY : SNOW_INTERCEPT_EFF +USE MODE_MEB, ONLY : MEBLITTER_THRM, SNOW_INTERCEPT_EFF ! USE MODI_WET_LEAVES_FRAC USE MODI_VEG @@ -943,7 +943,7 @@ ZVEGFACT(:) = ZSIGMA_F(:)*(1.0-PPALPHAN(:)*PEK%XPSN(:)) ELSE CALL SNOW3L_ISBA(IO, G, PK, PEK, DK, DEK, DMK, OMEB, HIMPLICIT_WIND, & TPTIME, PTSTEP, PK%XVEGTYPE_PATCH, ZTGL, ZCTSFC, & - ZSOILHCAPZ, ZSOILCONDZ(:,1), PEK%XTC, DEK%XSWDOWN_GN, PEK%XQC, & + ZSOILHCAPZ, ZSOILCONDZ(:,1), PPS, PEK%XTC, DEK%XSWDOWN_GN, PEK%XQC, & PVMOD, PLW_RAD, ZRRSFC, DEK%XSR_GN, PRHOA, ZUREF, PEXNS, & PEXNA, PDIRCOSZW, ZZREF, ZALBG, ZD_G, ZDZG, PPEW_A_COEF, & PPEW_B_COEF, PPET_A_COEF, PPEQ_A_COEF, PPET_B_COEF, &