CNEvergreenPhenology

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_year

ARGUMENTS:

    integer, intent(in) :: num_soilp       ! number of soil pfts in filter
    integer, intent(in) :: filter_soilp(:) ! filter for soil pfts

CALLED FROM:

   subroutine CNPhenology

REVISION HISTORY:

   10/2/03: Created by Peter Thornton

LOCAL 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