C13Flux3

INTERFACE:

 subroutine C13Flux3(num_soilc, filter_soilc, num_soilp, filter_soilp)

DESCRIPTION:

On the radiation time step, set the 13-carbon fluxes for fire mortality

USES:

    use clmtype
    use pft2colMod, only: p2c

ARGUMENTS:

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

CALLED FROM:

   subroutine CNEcosystemDyn

REVISION HISTORY:

LOCAL VARIABLES:

   !OTHER LOCAL VARIABLES:
    type(pft_type), pointer :: p
    type(column_type), pointer :: c
    integer :: fp,pi
    real(r8), pointer :: ptrp(:)         ! pointer to input pft array
    real(r8), pointer :: ptrc(:)         ! pointer to output column array