next up previous contents
Next: CNC13HarvestPftToColumn Up: Fortran: Module Interface C13FluxMod Previous: CNC13LitterToColumn   Contents

CNC13GapPftToColumn


INTERFACE:

 subroutine CNC13GapPftToColumn (num_soilc, filter_soilc)
DESCRIPTION:

gather all pft-level gap mortality fluxes to the column level and assign them to the three litter pools (+ cwd pool)


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 :: m_leafc_to_litter(:)
    real(r8), pointer :: m_frootc_to_litter(:)
    real(r8), pointer :: m_livestemc_to_litter(:)
    real(r8), pointer :: m_deadstemc_to_litter(:)
    real(r8), pointer :: m_livecrootc_to_litter(:)
    real(r8), pointer :: m_deadcrootc_to_litter(:)
    real(r8), pointer :: m_leafc_storage_to_litter(:)
    real(r8), pointer :: m_frootc_storage_to_litter(:)
    real(r8), pointer :: m_livestemc_storage_to_litter(:)
    real(r8), pointer :: m_deadstemc_storage_to_litter(:)
    real(r8), pointer :: m_livecrootc_storage_to_litter(:)
    real(r8), pointer :: m_deadcrootc_storage_to_litter(:)
    real(r8), pointer :: m_gresp_storage_to_litter(:)
    real(r8), pointer :: m_leafc_xfer_to_litter(:)
    real(r8), pointer :: m_frootc_xfer_to_litter(:)
    real(r8), pointer :: m_livestemc_xfer_to_litter(:)
    real(r8), pointer :: m_deadstemc_xfer_to_litter(:)
    real(r8), pointer :: m_livecrootc_xfer_to_litter(:)
    real(r8), pointer :: m_deadcrootc_xfer_to_litter(:)
    real(r8), pointer :: m_gresp_xfer_to_litter(:)
   local pointers to implicit in/out arrays
    real(r8), pointer :: m_leafc_to_litr1c(:)
    real(r8), pointer :: m_leafc_to_litr2c(:)
    real(r8), pointer :: m_leafc_to_litr3c(:)
    real(r8), pointer :: m_frootc_to_litr1c(:)
    real(r8), pointer :: m_frootc_to_litr2c(:)
    real(r8), pointer :: m_frootc_to_litr3c(:)
    real(r8), pointer :: m_livestemc_to_cwdc(:)
    real(r8), pointer :: m_deadstemc_to_cwdc(:)
    real(r8), pointer :: m_livecrootc_to_cwdc(:)
    real(r8), pointer :: m_deadcrootc_to_cwdc(:)
    real(r8), pointer :: m_leafc_storage_to_litr1c(:)
    real(r8), pointer :: m_frootc_storage_to_litr1c(:)
    real(r8), pointer :: m_livestemc_storage_to_litr1c(:)
    real(r8), pointer :: m_deadstemc_storage_to_litr1c(:)
    real(r8), pointer :: m_livecrootc_storage_to_litr1c(:)
    real(r8), pointer :: m_deadcrootc_storage_to_litr1c(:)
    real(r8), pointer :: m_gresp_storage_to_litr1c(:)
    real(r8), pointer :: m_leafc_xfer_to_litr1c(:)
    real(r8), pointer :: m_frootc_xfer_to_litr1c(:)
    real(r8), pointer :: m_livestemc_xfer_to_litr1c(:)
    real(r8), pointer :: m_deadstemc_xfer_to_litr1c(:)
    real(r8), pointer :: m_livecrootc_xfer_to_litr1c(:)
    real(r8), pointer :: m_deadcrootc_xfer_to_litr1c(:)
    real(r8), pointer :: m_gresp_xfer_to_litr1c(:)
   local pointers to implicit out arrays
   !OTHER LOCAL VARIABLES:
    integer :: fc,c,pi,p               ! indices



Erik Kluzek 2011-06-15