Closed gelianxing closed 3 months ago
DO WHILE ((CUMDEP.LE.RTDEPTMP) .AND. (L.LT.NLAYR)) L = L + 1 CUMDEP = CUMDEP + DLAYR(L) SWDF = AMAX1(0.1,AMIN1(1.0, & ((SW(L)-LL(L))/(DUL(L)-LL(L)))/WFRG))
WFRG replace WFRGU maybe better，WFRG is the root tip layer water factor
DO WHILE ((CUMDEP.LE.RTDEPTMP) .AND. (L.LT.NLAYR)) L = L + 1 CUMDEP = CUMDEP + DLAYR(L) SWDF = AMAX1(0.1,AMIN1(1.0, & ((SW(L)-LL(L))/(DUL(L)-LL(L)))/WFRG))WFRG replace WFRGU maybe better，WFRG is the root tip layer water factor