C13Flux2

INTERFACE:

 subroutine C13Flux2(num_soilc, filter_soilc, num_soilp, filter_soilp)

DESCRIPTION:

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

USES:

    use clmtype

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