chen1718@umn_edu
Member
Hi all,I was curious about the root distribution in CESM for different PFTs so I tried plot them in Matlab using the functions given in the Tech book. But I met error, so I found out the original paper of Zeng X., 2001 which gave a description of the original root distribution equation. I wrote the numerical equations myself, compared them to the code, and I found this bug.The root fraction rootfr in each soil layer currently is calculated as: do lev = 1, nlevsoi-1
rootfr(p,lev) = .5_r8*( exp(-roota_par(ivt(p)) * zi(c,lev-1)) &
+ exp(-rootb_par(ivt(p)) * zi(c,lev-1)) &
- exp(-roota_par(ivt(p)) * zi(c,lev )) &
- exp(-rootb_par(ivt(p)) * zi(c,lev )) )
end do
rootfr(p,nlevsoi) = .5_r8*( exp(-roota_par(ivt(p)) * zi(c,nlevsoi-1)) &
+ exp(-rootb_par(ivt(p)) * zi(c,nlevsoi-1)) )
However, given the equation that Zeng X.2001 gave, the calculation should be: lev = 1 rootfr(p,lev) = 1 - .5_r8*( exp(-roota_par(ivt(p)) * zi(c,lev)) &
+ exp(-rootb_par(ivt(p)) * zi(c,lev)) ) do lev = 2, nlevsoi
rootfr(p,lev) = .5_r8*( exp(-roota_par(ivt(p)) * zi(c,lev-1)) &
+ exp(-rootb_par(ivt(p)) * zi(c,lev-1)) &
- exp(-roota_par(ivt(p)) * zi(c,lev )) &
- exp(-rootb_par(ivt(p)) * zi(c,lev )) )
end doThe corrected equation will give a cumulative root fraction of 1 by adding all of the root fractions throughout the soil layers while the current equation does not. Hope this helps. Ming
rootfr(p,lev) = .5_r8*( exp(-roota_par(ivt(p)) * zi(c,lev-1)) &
+ exp(-rootb_par(ivt(p)) * zi(c,lev-1)) &
- exp(-roota_par(ivt(p)) * zi(c,lev )) &
- exp(-rootb_par(ivt(p)) * zi(c,lev )) )
end do
rootfr(p,nlevsoi) = .5_r8*( exp(-roota_par(ivt(p)) * zi(c,nlevsoi-1)) &
+ exp(-rootb_par(ivt(p)) * zi(c,nlevsoi-1)) )
However, given the equation that Zeng X.2001 gave, the calculation should be: lev = 1 rootfr(p,lev) = 1 - .5_r8*( exp(-roota_par(ivt(p)) * zi(c,lev)) &
+ exp(-rootb_par(ivt(p)) * zi(c,lev)) ) do lev = 2, nlevsoi
rootfr(p,lev) = .5_r8*( exp(-roota_par(ivt(p)) * zi(c,lev-1)) &
+ exp(-rootb_par(ivt(p)) * zi(c,lev-1)) &
- exp(-roota_par(ivt(p)) * zi(c,lev )) &
- exp(-rootb_par(ivt(p)) * zi(c,lev )) )
end doThe corrected equation will give a cumulative root fraction of 1 by adding all of the root fractions throughout the soil layers while the current equation does not. Hope this helps. Ming