CNC13HarvestPftToColumn

INTERFACE:

 subroutine CNC13HarvestPftToColumn (num_soilc, filter_soilc)

DESCRIPTION:

gather all pft-level harvest mortality fluxes to the column level and assign them to the litter, cwd, and wood product pools

USES:

   use clmtype
   use clm_varpar, only : max_pft_per_col, maxpatch_pft

ARGUMENTS:

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

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(:)    ! pft weight relative to column (0-1)
    real(r8), pointer :: pwtgcell(:) ! weight of pft relative to corresponding gridcell
    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
    real(r8), pointer :: hrv_leafc_to_litter(:)
    real(r8), pointer :: hrv_frootc_to_litter(:)
    real(r8), pointer :: hrv_livestemc_to_litter(:)
    real(r8), pointer :: phrv_deadstemc_to_prod10c(:)
    real(r8), pointer :: phrv_deadstemc_to_prod100c(:)
    real(r8), pointer :: hrv_livecrootc_to_litter(:)
    real(r8), pointer :: hrv_deadcrootc_to_litter(:)
    real(r8), pointer :: hrv_leafc_storage_to_litter(:)
    real(r8), pointer :: hrv_frootc_storage_to_litter(:)
    real(r8), pointer :: hrv_livestemc_storage_to_litter(:)
    real(r8), pointer :: hrv_deadstemc_storage_to_litter(:)
    real(r8), pointer :: hrv_livecrootc_storage_to_litter(:)
    real(r8), pointer :: hrv_deadcrootc_storage_to_litter(:)
    real(r8), pointer :: hrv_gresp_storage_to_litter(:)
    real(r8), pointer :: hrv_leafc_xfer_to_litter(:)
    real(r8), pointer :: hrv_frootc_xfer_to_litter(:)
    real(r8), pointer :: hrv_livestemc_xfer_to_litter(:)
    real(r8), pointer :: hrv_deadstemc_xfer_to_litter(:)
    real(r8), pointer :: hrv_livecrootc_xfer_to_litter(:)
    real(r8), pointer :: hrv_deadcrootc_xfer_to_litter(:)
    real(r8), pointer :: hrv_gresp_xfer_to_litter(:)
   local pointers to implicit in/out arrays
    real(r8), pointer :: hrv_leafc_to_litr1c(:)
    real(r8), pointer :: hrv_leafc_to_litr2c(:)
    real(r8), pointer :: hrv_leafc_to_litr3c(:)
    real(r8), pointer :: hrv_frootc_to_litr1c(:)
    real(r8), pointer :: hrv_frootc_to_litr2c(:)
    real(r8), pointer :: hrv_frootc_to_litr3c(:)
    real(r8), pointer :: hrv_livestemc_to_cwdc(:)
    real(r8), pointer :: chrv_deadstemc_to_prod10c(:)
    real(r8), pointer :: chrv_deadstemc_to_prod100c(:)
    real(r8), pointer :: hrv_livecrootc_to_cwdc(:)
    real(r8), pointer :: hrv_deadcrootc_to_cwdc(:)
    real(r8), pointer :: hrv_leafc_storage_to_litr1c(:)
    real(r8), pointer :: hrv_frootc_storage_to_litr1c(:)
    real(r8), pointer :: hrv_livestemc_storage_to_litr1c(:)
    real(r8), pointer :: hrv_deadstemc_storage_to_litr1c(:)
    real(r8), pointer :: hrv_livecrootc_storage_to_litr1c(:)
    real(r8), pointer :: hrv_deadcrootc_storage_to_litr1c(:)
    real(r8), pointer :: hrv_gresp_storage_to_litr1c(:)
    real(r8), pointer :: hrv_leafc_xfer_to_litr1c(:)
    real(r8), pointer :: hrv_frootc_xfer_to_litr1c(:)
    real(r8), pointer :: hrv_livestemc_xfer_to_litr1c(:)
    real(r8), pointer :: hrv_deadstemc_xfer_to_litr1c(:)
    real(r8), pointer :: hrv_livecrootc_xfer_to_litr1c(:)
    real(r8), pointer :: hrv_deadcrootc_xfer_to_litr1c(:)
    real(r8), pointer :: hrv_gresp_xfer_to_litr1c(:)
   local pointers to implicit out arrays
   !OTHER LOCAL VARIABLES:
    integer :: fc,c,pi,p               ! indices