CNWoodProducts

INTERFACE:

 subroutine CNWoodProducts(num_soilc, filter_soilc)

DESCRIPTION:

Update all loss fluxes from wood product pools, and update product pool state variables for both loss and gain terms. Gain terms are calculated in pftdyn_cnbal() for gains associated with changes in landcover, and in CNHarvest(), for gains associated with wood harvest.

USES:

    use clmtype
    use clm_time_manager, only: get_step_size

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 CNEcosystemDyn

REVISION HISTORY:

   5/21/09: Created by Peter Thornton

LOCAL VARIABLES:

 
    integer :: fc        ! lake filter indices
    integer :: c         ! indices
    real(r8):: dt        ! time step (seconds)
    type(column_type),   pointer :: cptr         ! pointer to column derived subtype
    real(r8) :: kprod10       ! decay constant for 10-year product pool
    real(r8) :: kprod100      ! decay constant for 100-year product pool