CNC13LitterToColumn

INTERFACE:

 subroutine CNC13LitterToColumn (num_soilc, filter_soilc)

DESCRIPTION:

called at the end of cn_phenology to gather all pft-level litterfall fluxes to the column level and assign them to the three litter pools

USES:

   use clmtype
   use clm_varpar, only : max_pft_per_col

ARGUMENTS:

   implicit none
   integer, intent(in) :: num_soilc       ! number of soil columns in filter
   integer, intent(in) :: filter_soilc(:) ! filter for soil columns

CALLED FROM:

   subroutine CNPhenology

REVISION HISTORY:

   9/8/03: Created by Peter Thornton

LOCAL VARIABLES:

   local pointers to implicit in scalars
    integer , pointer :: ivt(:)          ! pft vegetation type
    real(r8), pointer :: wtcol(:)        ! weight (relative to column) for this pft (0-1)
    real(r8), pointer :: pwtgcell(:)     ! weight of pft relative to corresponding gridcell
    real(r8), pointer :: leafc_to_litter(:)
    real(r8), pointer :: frootc_to_litter(:)
    real(r8), pointer :: lf_flab(:)      ! leaf litter labile fraction
    real(r8), pointer :: lf_fcel(:)      ! leaf litter cellulose fraction
    real(r8), pointer :: lf_flig(:)      ! leaf litter lignin fraction
    real(r8), pointer :: fr_flab(:)      ! fine root litter labile fraction
    real(r8), pointer :: fr_fcel(:)      ! fine root litter cellulose fraction
    real(r8), pointer :: fr_flig(:)      ! fine root litter lignin fraction
    integer , pointer :: npfts(:)        ! number of pfts for each column
    integer , pointer :: pfti(:)         ! beginning pft index for each column
   local pointers to implicit in/out scalars
    real(r8), pointer :: leafc_to_litr1c(:)
    real(r8), pointer :: leafc_to_litr2c(:)
    real(r8), pointer :: leafc_to_litr3c(:)
    real(r8), pointer :: frootc_to_litr1c(:)
    real(r8), pointer :: frootc_to_litr2c(:)
    real(r8), pointer :: frootc_to_litr3c(:)
   local pointers to implicit out scalars
   !OTHER LOCAL VARIABLES:
     integer :: fc,c,pi,p