INTERFACE:
subroutine CNEvergreenPhenology (num_soilp, filter_soilp)DESCRIPTION:
For coupled carbon-nitrogen code (CN).
USES:
use clm_varcon , only: secspday use clm_time_manager, only: get_days_per_yearARGUMENTS:
integer, intent(in) :: num_soilp ! number of soil pfts in filter integer, intent(in) :: filter_soilp(:) ! filter for soil pftsCALLED FROM:
subroutine CNPhenologyREVISION HISTORY:
10/2/03: Created by Peter ThorntonLOCAL VARIABLES:
local pointers to implicit in scalars integer , pointer :: ivt(:) ! pft vegetation type ! ecophysiological constants real(r8), pointer :: evergreen(:) ! binary flag for evergreen leaf habit (0 or 1) real(r8), pointer :: leaf_long(:) ! leaf longevity (yrs) local pointers to implicit in/out scalars real(r8), pointer :: bglfr(:) ! background litterfall rate (1/s) real(r8), pointer :: bgtr(:) ! background transfer growth rate (1/s) real(r8), pointer :: lgsf(:) ! long growing season factor [0-1] local pointers to implicit out scalars !OTHER LOCAL VARIABLES: real(r8):: dayspyr ! Days per year integer :: p ! indices integer :: fp ! lake filter pft index